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ABSTRACT 



Data is a very valuable corporate asset. How it is managed and 
controlled can often determine the success or failure of a corporate 
venture. With this fact in mind many organizations are taking a close 
look at what tools are available to help them in this effort. 

This thesis takes a look at two types of data management tools avail- 
able today, the Relational Data Base Management System (DBMS) and the 
Data Dictionary (DD) . It discusses desirable DBMS and DD characteristics 
with particular attention being paid to the shortcomings of DDs . It 
also describes the effort of the National Bureau of Standards (NBS) to 
develop a DD standard and examines in detail the NBS Information Resource 
Dictionary System (IRDS) and how the standard was implemented in a prototype 
IRDS . 
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I. INTRODUCTION 



A . BACKGROUND 

In the corporate world data is a very valuable resource. Many organi- 
zations spend a great deal of time and corporate assets trying to control 
it. Data is used to facilitate the management decision process by pro- 
viding the manager with timely, accurate and relevant information. Since 
the quality of the decisions made by today's managers is so important, it 
is very critical that the corporate data resource be easy to access, as 
accurate as possible, and properly and effectively managed. {Ref. 1] 

Concern over corporate information resources has resulted from the 
explosive growth in the size, complexity and number of data bases available 
to managers. This data base explosion has also ushered in the need for 
better tools to manage the corporate data base. A critical software tool 
that has been developed to control and manage data is the Data Base Manage- 
ment System (DBMS) . 

E. F. Codd has identified nine functions that the ideal DBMS should 

have (See Figure 1.1) [Ref. 2]. Kroenke states that 

DBMS products vary in the degree to which they provide these functions. 
Currently, no commercial DBMS provides all nine functions entirely 
satisfactorily. These functions are necessary and important, however, 
and this situation should change as DBMS products evolve and as new 
products are developed. [Ref. 3] 

Of the nine functions listed in Figure 1.1, the one that is of particular 
interest to the Data Administrator (the individual who is responsible for 
the management of the data dictionary and for its effective use in the 
pursuit of data resource goals) is the function of providing a user-accessible 
catalog for data descriptions. 
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B. OBJECTIVES 



The changes in today’s end-user environment reflects the growth in 
computer literacy and increased need for data. Users are demanding in- 
creasingly better access to data via interactive processing, ad-hoc 
queries, specialized reports and simpler man-machine communication. At 
the same time there is growing concern over the timeliness, validity, 
and relevance, and usability of 'the data that is available. 

As a result, there has been a growing interest in two tools which 
provide highly visible support for the information processing community- 
data dictionaries and relational data bases. Most relational data base 
products provide only rudimentary dictionary capabilities, "the offerings 
provide little more than a method of defining the schema." [Ref. 6] 

The relational data dictionary has become the link that connects the 
user/analyst with the DBMS. [Ref. 7] 

The relational data dictionary, that is the data dictionary normally 
provided with a relational DBMS has additional weaknesses besides the 
ones mentioned above: 

* They do not provide a full range of functions 

* Their ability to interface with more than one DBMS is limited 
or non-existent 

* There is a broad divergence concerning the scope of data dictionaries 
and until recently there has been no universally accepted standard 
[Ref. 8] , [Ref. 9] . 

It is interesting to note that these problems apply to data dictionaries 
in general and not just to the relational variety. The purpose of this 
work is to create a prototype of a relational dictionary based on the 



10 



The usefulness of the catalog is greater if it contains not only data 
descriptions but also data about the relationship between programs 
and data, e.g., which programs access which data, and what they do 
with it. [Ref. 4] 

1. Store, retrieve, and update data 

2. Provide integrity services to enforce data constraints 

3. Provide a user-accessible catalog of data descriptions 

4. Control concurrent processing 

5. Support logical transactions 

6. Recover from failure 

7. Provide security facilities 

8. Interface with communications control programs 

9. Provide utility services 

Figure 1.1 DBMS Functions 



The problem that arises is that some DBMSs have limitations on how 
well they maintain the meta-data (data that describes other data or 
data bases) . Meta-data include descriptions of the meaning of data 
items, the ways in which the data are used: the sources of particular 
data elements: the physical characteristics and rules or restrictions on 
their forms or uses. When the meta-data deals strictly with where data 
stored in the DBMS it is referred to as a Data Directory but this 
capability is not enough. The Data Dictionary (DD) system is an expansion 
of the DBMS description cataloging capability. The Data Dictionary sys- 
tem is a key tool available to the Data Administrator for the management 
of meta-data and information resources. The DD provides facilities for 
recording, storing and processing descriptions of and organization’s 
data and data processing resources. [Ref. 5] 
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specified standards for dictionaries recently developed by the National 
Bureau of Standards (NBS).. Chapter 2 discusses dictionary concepts 
in general and reviews functionality of existing dictionary capabilities 
with special attention on relational systems. Chapter 3 discusses the 
features and capabilities which form the basis of the NBS draft pro- 
posal American National Standards (dp ANSj Information Resource Diction- 
ary System (IRDS) . Chapter 4 outlines and discusses the IRDS features 
that were selected for inclusion in the relational dictionary prototype 
and how those features were actually implemented. 
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II. DATA DICTIONARY FUNCTIONS AND CAPABILITIES 



A. GENERAL 

The Data Dictionary (DD) is of great importance to the DBMS admini- 
strator and user because it allows the administrator to control how data 
and data bases are described and structured and it provides the link that 
connects the user to the DBMS. A data dictionary is a repository of data 
about data and processes associated with a particular system or 
organization . 

B. DBMS DATA DICTIONARY CAPABILITIES 

The data stored in a DBMS data' base may be organized along hierarchical, 
network or relational lines. This organizational capability also exists 
for the data in the Data Dictionary, which in most cases is actually data 
stored in the DBMS itself. Data dictionaries implemented in this fashion 
are most often referred to as a DATA DIRECTORY (how the data is stored in the 
data base) . On the other hand the implementation of a data dictionary can 
be on such a scale that it incorporates all of the data resources available 
to an organization. An implementation such as this is often referred to as 
INFORMATION RESOURCE MANAGEMENT. [Ref. 10] This thesis is most concerned 
with data dictionaries of the information resource management type. 

The DBMS acts as a librarian for the data base, storing and retrieving 
data according to a particular format [Ref. 11] . However, a DBMS does not 
necessarily provide for the security, integrity, accountability, or 
maintainability of that data. These objectives are best achieved when a 
data dictionary is used in conjunction with the DBMS [Ref 12] . 
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A DD is. an instrument for describing an organization's meta-data. 
Meta-data refers to that data which describes other data or data bases 
and includes descriptions of the meaning of data items, the ways in which 
the data are used; the sources of particular data elements; the physical 
characteristics; and rules or restrictions on their forms or uses [Ref. 13]. 

There are additional capabilities that should be made available to 
the DBMS user as part of the data dictionary I Ref. 14]: 

1. Retrieval and analysis capabilities which assist the user in 
application development. 

2. The ability to generate pre-defined, customized and user defined 
reports via some type of report writer. 

3. The ability to extend the data dictionary as necessary to meet the 
DBMS user's unique needs. 

4. Data management tools that are intended to ensure the security, 
validity, recoverability and' integrity of the data dictionary 
system and its associated data bases. 

5. Software interfaces that allow other software modules to access the 
data base via the dictionary and the capabilities of translating 
the meta-data into file definitions usable by the software. 

M. T. Vanecek described the capabilities listed above as those most im- 
portant from a DBMS auditor's standpoint but it is easy to see that they 
could apply to many types of users. [Ref. 15: pp. 15-16] 

P. P. Uhrowczik describes the capabilities listed above as being 
derived from the "management use mode." He goes on to identify additional 
DD capabilities that should be available to the DBMS user in what he 
calls the "computer use mode" [Ref. 16: pp. 332-334]: 

1. Data Mapping. Where the user is no longer concerned with what is 
sometimes called the "physical-equal-logical" environment. This is 
accomplished by removing the awareness of where data is stored 

and giving it to the DD. 

2. Data Conversion. During the mapping process, data can be converted 
to a different format. For instance, data physically stored as 
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character can be retrieved and converted to decimal. 



3. Data compaction. Data can be stored in a compacted form (encoded) , 
but presented to the user in a more meaningful format (decoded) . 

4. Input and output validation. Data entering a program (input) or 
data entering physical storage (update) can be checked against 
pre-established editing standards. For example, data can have a 
specified format, and lie within a specified range of values. 

5. Test-data generation. System-generated test data with characteristics 
as described in the DD can be presented to the user. 

6. Logical record and file definitions. A user is generally interested 
in processing only certain data elements forming a logical record 
and desires that these logical records be presented to him in a 
certain sequence. In Figure 2.1 the user defines his logical record 
as a series of element names and states his desire to process the 
file sequentially in a DEPT/MANNO sort sequence. The fact that the 
file comes physically from two different data sets is pre-defined in 
the DD/D. Thus the system can deliver the logical records properly 
assembled in the requested sequence. The user and the program do 
not need to know about the two data sets that are required to produce 
the view. 

7. JCL Generation. Job Control Language (JCL) statements for physical 
data sets can be automatically generated as required by the particular 
operating system in use. This not only eliminates the user's pre- 
occupation with JCL, but also facilitates migration to different 
operating systems. 

8. Access to distributed data bases. Data bases or portions of data 
bases may be physically stored in different locations on different 
computers, linked via data communication facilities. The data 
directory located with each distributed data base would describe 
the physical data located at that site, as well as, physical data 
located at other sites. The DBMS can decide based on the information 
provided by the DD whether to satisfy the request locally or from 

a remote location. 

C. DATA DICTIONARY CAPABILITIES 

The capabilities listed above describe the data dictionary capabilities 
that should be available to any DBMS user. However this view of the desired 
data dictionary capabilities is limited, since it perceives the data diction- 
airy as an extension of the DBMS itself and not as a true data dictionary. 

It is possible, on the other hand, to view the data 
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Figure 2.1 Logical Record and File Definitions 
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dictionary as an entity unto itself whether it is from standing or 
DBMS dependent. The capabilities and functions shown in Figure 2.2 
and described below represent a joing of the capabilities and functions 
described by Allen et al {Ref. 17: pp. 248-253] and Lefkovits et al 
[Ref. 18: pp.2-7 thru 2-29] . 

1 . Dictionary Schema 

Denotes the structure of the dictionary. Both sources agree that, 
at a minimum, a DD should allow for the definition of Entities, Relation- 
ships and Attributes. Entities are the basic unit of the dictionary and 
represent real world objects or things about which certain information 
exists in the dictionary. Relationships provide information about associa- 
tions between entities whereas attributes provide information about 
entities and relationships that exist in the dictionary. Figures 2.3 
and 2.4 show examples of commonly used entities and relationships. 



Data Dictionary Maintenance 
Schema 

Entity- types 
Attribute- types 
Relationship- types 
User Dialogue 
Dictionary Commands 
Extensibility 
Status Facilities 
Report Processor 
Query Processor 
Convert Function 
Software Interface 
Data Management 
Security 
Integrity 

Concurrent Control 
Internal access to DD 

Figure 2.2 Data Dictionary Capabilities 



Entity names should be unique but facilities to track duplicate 
names in the form of aliases or synonyms hould be provided. Additionally, 
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Figure 2.3 Logical Structure of a Typical DD 
(from Allen et al) 



USER/ USAGE 
I 
I 

SYSTEM/ SUBSYSTEM 
I 
I 

PROGRAM. ^MODULE 
I 
I 

FILE 

I 

I 

GROUP '-RECORD 

I 

I 

IT EM/ DAT A ELEMENT 



Figure 2.4 Hierarchy of Entity-types 
(from Lefkovits et al) 
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the DD should allow a minimum of three groupings of entity-types: 
Data-Element , Processes, and Usage. 

The dictionary system should also provide a means of grouping 
together dictionary elements that have the same characteristics. This 
can be accomplished through the establishment of Entity-types, Relation- 
ship-types and Attribute-types. It can also be accomplished through the 
establishment of a Key-word In-context feature. Neither author provided 
specific examples of atribute or relationship types. Both did agree that 
most DD provide enough attribute-types and relationship-types to meet 
the average user needs. In addition they identified the extensibility 
feature which would allow a DD user to expand the DD to meet his indivi- 
dual requirements . 

2. User Dialogue 

The method used by the DD to communicate with the user and vice 

versa. 

a. keyword-driven language 

b. position-sensitive transactions 

c. interactive, prompted input 

d. interactive, performatted screens or menus 

3 . Dictionary Commands 

Provide user with the ability to use the DD system to its fullest 
extent. Dictionary commands can be divided to the following categories. 

a. Dictionary Maintenance Commands 

Those commands that allow entities, relationships, and 
attributes to be created, modified and deleted from the dictionary. 
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b. Report and Query Commands 

Those commands that allow the user to request the system 
to generate listings of entities, relationships and attributes and generate 
queries on such things as the usage of dictionary entities, keyword and 
synonym searches. 

c. Data Structure Interface Commands 

These commands give the DD system the ability to generate 
descriptions of data structures in such a way that they can be processed 
by other language processors, such as language compilers or DBMS 
schema/subschema utilities. 

d. Extensibility Commands 

These commands are discussed in 4 below . 

e. Status-related Commands 

Will be discussed in 5 below. 

f . Security Commands 

These commands provide the system with the ability to exclude 
some users from access to the system or restrict his ability to modify 
and change the system. 

g. Dictionary Processing Control Commands 

These commands allow the user to perform such functions as 
log-on, log-off, terminate operation upon error, etc. 

h. Dictionary Administrator Commands 

These commands will allow the dictionary administrator to: 

* initially create the dictionary system 

* recover the dictionary after a failure 

* 



set default values 



* create back-up copies of the dictionary 

4 . Extensibility 

A feature that allows the DD structure to be extended by • 
definition of additional entities, relationships, and attributes. 

5 . Status Facilities 

Allows the dictionary system to be used in a System Life Cycle 
environment, that is the system would allow for the designation of an 
entity as being "Under Development," "Production" or "Archive" for 
example . 

6. Report Processor 

This capability allows the user of the DD system to produce 
predefined reports, the ability to customize reports and produce 
user-defined reports. 

7. Query Processor 

This capability would give the DD user the ability to generate 
English-like queries of the system. This query capability is analogous 
to the corresponding function in DBMSs for access to data bases. 

8 . Convert Function 

This function allows the DD system to read application programs , 
libraries and schemata and generate DD maintenance input transactions to 
automatically create a DD schema. 

9. Software Interface 

This capability provides a formatted pathway, enabling the DD 
system to provide meta-data to other software systems such as compilers. 

10. Data Management 

This function would provide for the data base management tasks 

such as: 
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Security 



* 

* Integrity 

* Concurrent control 

* Internal access of the DD 

Not all data dictionary systems possess the capabilities listed 
above in fact, early data dictionary systems were little more than docu- 
ment generators, taking the meta-data that had been stored in them and 
printing out reports describing file and record structures. Other DD 
which are DBMS-dependent obtain the capabilities listed above from the 
DBMS they are associated with. Unfortunately even DBMS products that 
are currently being marketed are limited in the data dictionary 
capabilities they offer and very few if any offer what could be classified 
as information resource dictionary systems. In addition to the limited 
DD capabilities associated with DBMS, the additional problem of lack of 
standardization exists. 



D. ADVANTAGES OF DATA DICTIONARIES 

The main advantage of a dictionary lies not in its ability to store 
and catalogue information about data, but in its ability to assist in 
the discipline of data design [Ref. 19]. 

This advantage can be expanded into a number of beneficial areas: 

1. Information about data/corporate asset. Accurate information about 
how a company functions, about its employees and clients can be 
stored in a DBMS and defined in a data dictionary. By storing 
this knowledge on a magnetic media and providing for adequate 
backup and recovery to the data dictionary, the corporate asset 
is being saved from catastrophe. 

2c Public vs. Private Information. The situation where only a pro- 
grammer knows all of the information (institutional knowledge) about 
a particular application, can cause many problems not only for those 
who must pick up a project in raid-stream, but even for the programmer 
himself if it has been several months since he last worked 
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on the application. By incorporating his institutional 
knowledge about each application into a data dictionary as 
each new application is developed, the information becomes public 
knowledge for the application developer and anyone who follows 
him. This will substantially reduce the effort required to 
modify and enhance existing applications. 

3. Communication tool. The data dictionary can become a repository 
of corporate information, i.e., minutes of meetings, memos, notes, 
manuals and reference texts, which can be accessed by all areas of 
a company. The central area of Figure 2.5 represents the communi- 
cations value of a data dictionary. 




Figure 2.5 Communication Value of a Data Dictionary 

4. Safeguard against Data Redundancy. Old systems are difficult to 
maintain because of lack of information, process redundance and 
data redundancy. Information availability has been discussed above. 
Process redundancy can be reduced through structured programming 
techniques. Data redundancy however requires a different approach. 
Data redundancy is a situation where the same data element pro- 
liferates throughout the system. 

It is not uncommon in an older system to find the same data element 
stored in ten different locations and requiring ten different update 
transactions to maintain it. This same data element may be referenced 
by 50 different names through the system. Is it any wonder that such 
systems are difficult to maintain. [Ref. 20] 

Listed below are various types of data redundancy: 
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a. Reference Redundancy - when the same data element is 
referenced by different names. 

b. Format Redundancy - when the same data element appears in the 
system in different formats. 

c. Group Redundancy - when data elements are grouped under a group 
name when no requirement exists from them in the first place. 

d. Occurrence Redundancy - when repetitious data names are used to 
identify multiple generations of the same data element. 

e. Definition Redundancy - when a data element is used for more than 
one purpose thus the element has more than one definition. 

f. Storage Redundancy - when the same data element is stored in more 
than one location (redundancy of this type, sometimes serves a 
purpose, in distributed systems for example). 

These as well as other types of redundancy not mentioned can be controlled 

through the use of a data dictionary. 

5. Glossary of Terms. Another benefit of implementing a data diction- 
ary is to use it as a glossary of terms . Which could be used in the 
development of software and as a training tool. 

The data dictionary can be very effective when used as a tool to 
support structured analysis and design. It can be used to document 
data store, data flow, and process entity types. The data dictionary 
can also be used to generate, file segment, and record definitions 
for a variety of programming languages. By doing so, we can cen- 
tralize the control of program data definitions. {Ref. 21] 

6. Documentation. The data dictionary can serve as an effective 
medium for the presentation of documentation. The nature of a 
data dictionary makes maintenance of documentation easier and 
anyone who has access to a computer terminal can subsequently 
access the documentation. 

7. System development. The ’’data dictionary is one more tool to in- 
crease user effectiveness in system development." [Ref. 22] the 
traditional approach to systems development (see Figure 2.6) can 
be enhanced to allow all involved in the development process, 
access to the necessary information as it is generated, (see 
Figure 2.7) This is accomplished by incorporating the DD into the 
traditional development network. 

All of the capabilities and benefits listed above are important, but 
very few if any data dictionary systems available today can provide them 
all. In other words there is no current standard from which all data 
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Figure 2.6 Systems Development Traditional Approach 




Figure 2.7 Expanded System Development Approach 
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dictionary products are developed. This situation is in the process of 
being eliminated now that the National Bureau of Standards (NBS) has 
formalized and published a standard for data dictionaries in the form 
of the Information Resource Dictionary System IRDS) standard. The feature 
and functions found in that standard are discussed in the next chapter. 

E. EXISTING DBMS DATA DICTIONARY CAPABILITIES 

As stated earlier very few DBMSs contain DDs that exhibit all the 
capabilities discussed above and even fewer Relational DBMSs offer the 
previously identified minimum DBMS dictionaries capabilities. Tables 2.1 
thru 2.3 list the DD capabilities provided by the INGRES and ORACLE DBMS 
products. It is easy to see from the list above that the dictionary 
capabilities provided by ORACLE and INGRES are very limited from the stand- 
point of offering full data dictionary capabilities. 

But what alternatives exist to improve this situation? The NBS IRDS 
standards offers a convenient vehicle to improve this situation. By 
adopting this standard as an industry-wide starting point, all products 
that use data dictionaries and the data dictionary itself will improve. 

The next chapter discusses the NBS IRDS standard in detail. 
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TABLE 2.1 



DBMS DICTIONARY CAPABILITIES 



CAPABILITY INGRES 

Data Dictionary Maintenance P 

Schema **** 

Entity-types - L 

Attribute- types L 

Relationship- types L 

User Dialogue **** 

Keyword-drive A 

Position-sensitive Trans N 

Interactive L 

Prompted input L 

Preformatted screen A 

Menus L 



ORACLE 

P 

* * * * 

A 

L 

A 

* * * * 

A 

N 

L 

L 

L 

L 



Facility/capability availability = A 
Facility/capability available but limited = L 
Facility/capability not available = N 
Facility/capability as part of DBMS only = F 
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TABLE 2.2 



DBMS DICTIONARY CAPABILITIES 
CAPABILITY INCRES ORACLE 



Dictionary Commands 
Maintenance 
Add 

Modify 

delete 

Report 

Query 

Data Structure interface 
Extensibili ty 
Status -re la ted 
Security 

Processing control 



P 

N 

L 

N 

P 

P 

N 

N 

N 

P 

N 



P 

L 

L 

L 

P 

P 

N 

P 

N 

P 

N 



Facility/capability availability = A 
Facility/capability available but limited = L 
Faci li tycapabi li ty not available = N 
Facility/capability as part of DBMS only = P 
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TABLE 2.3 



DBMS DICTIONARY CAPABILITIES 



CAPABILITY INGRES 

Administration A 

Extensibility N 

Status Facilities N 

Report Processor * P 

Query Processor P 

Convert Function A 

Software Interface P 

Data Management L 

Security P 

Integrity N 

Concurrent Control N 

Internal access to DD N 

Facility/capability availability = A 
Facility/capability available but limited 
Facility/capability not available = N 



Facility/capability as part of DBMS only = 



ORACLE 

A 

P/L 

N 

P 

P 

N 

P 

P/L 

P 

P 

N 

L 



- L 



P 



30 



III. INFORMATION RESOURCE DICTIONARY SYSTEM 



This chapter discusses the features and characteristics which form 
the basis of the draft proposal American National Standards (dp ANS) Infor- 
mation Resource Dictionary System (IRDS) . The chapter that follows will 
outline which of these features were chosen for incorporation into the 
Prototype IRDS . 

Ac BACKGROUND 

As the world* s largest user of information processing technology, the 
U. So Government depends on this technology to carry out Government-wide 
programs and deliver essential public services. As with most new technolo- 
gies Data Diet ionary /Directory Systems (DD/DS) were being developed by 
numerous software suppliers each from a different set of standards. Since 
it is estimated that the federal government could save "$120 million in 
benefits by the early 1990s from use of a standard (IRDS)'* [Ref. 23], the 
American National Standards Institute (ANSI) and the National Bureau of 
Standards (NBS) of the United States Department of Commerce were prompted 
to initiate efforts to develop standards for dictionary systems. To this 
end the ANSI committee for Information Systems (X3) convened a Technical 
Committee X3H4 to develop the standard for an IRDS in 1980. NBS at the 
same time established a similar committee to develop the "Federal Information 
Processing Standards for Data Dictionary Systems’* (FIPS DDS) . 

Although the ANSI X3H4 and the NBS committees used different titles 
for standards they were developing, the two groups had identical goals 
and similar development approaches. The two efforts came together with the 
adoption of Proposal A83-020 in August 1983. The proposal called for the 
acceptance of the draft FIPS DDS as the Base Document for any further 
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development of IRDS standards and has since been developed into the 
dp ANS IRDSs [Ref. 24J , iRef. 25], [Ref. 26], I Ref. 27]. 

B. IRDS DESIGN OBJECTIVES 

When specifications for the standard IRDS were being developed three 
key objectives were always in the forefront of consideration. They were: 

* The IRDS should contain the major features and capabilities found 
in existing Data Dictionary Systems. 

* The IRDS should be modularized to promote ease of implementation 
and cost efficient development. 

* The IRDS should support portability of skills and a wide range of 
user environments. 

In pursuit of this goal the Institute for Computer Science and 
Technology of the National Bureau of Standards took the following steps: 

* Preparing and disseminating the Prospectus for Data Dictionary Sys- 
tem Standard [Ref. 28] in 1980. This document discussed the use of 
Data Dictionaries and plans to develop a FIPS standard. 

* Conducted a Data Base Directions workshop in October, 1980 that in- 
vestigated how managers can evaluate, select, and effectively use 
information resource management tools, in particular data dictionary 
systems . 

* Conducted interviews with government employees that were knowledgeable 
in the area of data dictionaries to determine current and future re- 
quirements for data dictionary systems. The Federal Requirements for 
a Federal Information Processing Standard Data Dictionary System 
[Ref. 29] was published as a result of those interviews. 

* Conducted numerous workshops for users and vendors between 1982-84 
to obtain feedback on previously published documents. 

* Developed a functional specification for the development of a data 
dictionary standard [Ref. 30] . 

* Prepared and disseminated in August 1983 the draft specifications for 
the planned Federal Information Processing Standard for Data 
Dictionary Systems, the document that later became the baseline 
standard. 

1 . Outgrowth of Existing Systems 

All vendors who were marketing developed IRDSs or were developing 
IRDS were asked to review the proposed IRDS specification and make 
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recommendations and suggestions on what should be included in or excluded 
from the draft standards. Many of their recommendations were subsequently 
included in the draft specifications. 

2. Flexibility 

The proposed IRDS includes a "CORE” dictionary system (which is 
the basis for the prototype to be discussed in Chapter 5) plus three 
modules. The modules are designed to interface with the core system but 
be independent of each other so that any or all of the modules can be 
implemented with the core system when desired. To provide additional 
flexibility, capabilities are specified in the core IRDS that allow 
organizations to customize or extend the IRDS as required. 

3. Portability of Skill 

The core IRDS contains two user interfaces: a menu driven 

"Panel" interface and a command language interface. The panel interface 
allows the system to be used by the inexperienced user. It incorporates 
a series of interrelated screens that guide the user through the system. 

The command language interface on the other hand is designed to allow 
the more experienced user to access the system without viewing the 
panels. The command language interface may be used in a batch or interface 
mode. 

An implementation of the IRDS standard is considered complete if 
either of the interfaces are implemented. 

C. IRDS DATA ARCHITECTURE 

This section presents an overview of the framework in which IRDS data 
is organized and presented to the user. 
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1. Framework 



The IRDS standard is specified in terms of entities, 

relationships, and attributes (see Figure 3.1). 

An IRDS entity represents or describes a real world concept, person, 
event, or quantity, but is not the actual data that exists in an 
application file or data base. [Ref. 31] 

A relationship is an association between two entities. An attribute 
represents a property about an IRDS entity of relationship as the IRDS 
also allows relationships to have attributes. Relationships in the 
Core IRDS are binary, denoting that an association exists between two 
entities in the IRDS. 

The Core system was restricted to binary relationships because (1) the 
vast majority of current implementations use binary relationships and 
(2) it was desired that the Core system be simple? enough to implement on 
microcomputers . 



ENTITY u 8-20 ENTITY-TYPE = SYSTEM 
ASCAD Da t abas e_Upda t e 
WITH ATTRIBUTES 

DESCRIPTION (START = 100 INCREMENT = 16) 

"This subsystem pro 1 .' idea the capability for 
the staff to update the contents of the 

ASCAD Database." , 

SYSTEM-CATEGORY = "subsystem" , 

SECURITY = "datamor" ; 

Figure 3.1 Sample Entity Representation 



An important aspect of the IRDS standard is the concept of TYPE 
which is used as a way of classifying entities, relationships and sttri- 
butes. Different attributes have different meanings, for example the 
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length of Payroll-Number or number of fields in a Payroll-Record are 
different. But these attributes may appear many times in relationship 
to other entities , length of name, length of address or nuraber-bf -fields 
in an Accounts-Payable record. The IRDS standard handles this situation 
by declaring that each attribute is a specific type called an 
"attribute- type. " Thus there are attribute-types called length and 
number-of-f ields . 

The concept of types is extended to the IRDS relationship and 
entity in the form of "relationship-types" and "entity-types" see 
Appendix A. 

Relationships within the IRDS can also have attributes, for example 
the relationship in Figure 3.1 between Payroll-Record and Payroll-Number 
could have position attribute-type with a value of 3 indicating that the 
Payroll-Number appears as the third element in the Payroll-Record. 

The IRDS standard also allows for ordered sets of attributes 
called attribute-groups. This capability was incorporated into the 
standard because individual attribute-types don’t always convey the com- 
plete message about an entity. An example of this might be the allow- 
able-range of an entity. The allowable range has a high value and a low 
value which a singular attribute would not be able to convey. An attri- 
bute-group on the other hand would be able to convey this information 
quite easily. 

2 . IRDS Schema 

The IRD schema describes the structure of the IRD . Thus for 
every entity, relationship, attribute and attribute-group that can exist 
in the IRD, a corresponding description of the entity-type, relationship- type , 
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attribute- type and attribute-group- type must exist in the IRD 
schema. The proposed IRDS standard specifies a set of specifically 
allowable entries of the types listed above which are collectively called 
the "Core-System-Standard Schema" which will be discussed in 3. below. 

The IRD schema is important for two reasons. First, the IRDS 
specifications allow for facilities to modify and expand the core-system- 
standard schema to meet the unique needs of individual users. Second, 
the IRD schema supports the core system plus modules approach as discussed 
in Section 1 of this chapter and the IRD schema allows not only extension 
of the schema data but also definition of additional IRDS functions . 

3. The System-Standard Schema 

The system-standard schema defines the allowable contents of the- 
IRDS and is expected to be part of every IRDS implementation (the proto- 
type IRD in Appendix E only implements a subset of the system-standard 
schema, this will be explained in Chapter 4) . The core-system-standard 
schema does not contain all possible entity, relationship and attribute- 
types that an organization might desire, it does however represent the 
consensus of the organizations which participated in the original IRDS 
workshops and reviews. An overview of the core-system-standard schema 
is provided below and a complete core-system-standard schema is provided 
in Appendix A. 

a. Entity Types 

The core system-standard schema contains twelve entity-types 
that conceptually can be grouped into three categories, Data, Process, and 
External. [Ref. 32] 
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Data Entity-Types 



* DOCUMENT , describes instances of human readable data, such as tax 
forms and annual reports. 

* FILE, describes collections of records which represent an organiza- 
tion's data, such as inventory and accounts receivable files. 

* RECORD, describes instances of logically associated data, such as a 
payroll record. 

* ELEMENT, describes an instance of data, such as a social-security- 
number. 

* BIT-STRING, describes a string of binary digits, such as 01000101. 

* CHARACTER- STRING, describes a string of characters, such as "house." 

* FIXED-POINT, describes exact representations of numeric values. 

* FLOAT, describes exact representations of approximate numeric values. 

The last four are not used to represent application entities, but 
are instead used by the "REP RESENTED- AS" relationship to describe the 
characteristics of elements: 

PROCESS Entity- types 

* SYSTEM, describes a collection of processes and data, such as a 
payroll-system or accounts-payable-system. 

* PROGRAM, describes a particular process, such as print accounts- 
payable check 

* MODULE, describes a group of programs that are logically associated, 
such as a sort module. 

EXTERNAL Entity-types 

* USER, describes an individual or organization that is using the IRDS , 
such as the accounting department. 

b. Relational- types 

The relationship-types provided for in the IRDS core system- 
standard schema represent virtually all connections that might be useful 
to users. These relationship-types are grouped into eight classes [Ref. 33] 
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* CONTAINS, describes a situation were an entity- type contains other 
entity-types, such as Accounts payable-file CONTAINS Accounts 
Payable-record. 

* PROCESSES, describes a situation where an entity- type acts upon 
another entity- type, such as Payroll-program PROCESSES Payroll- 
records . 

* RESPONSIBLE-FOR, describes an association between entities represent- 
ing organizational components and other entities, to indicate 
organizational responsibility. An example of such a relationship is 
Accounting-department RESPONSIBLE-FOR General-ledger-file. 

* RUNS, describes an association between user and process entities, 
such as user RUNS program. 

* GOES-TO, describes a situation where one process transfers control 
to another process. An example of this relationship is Accounts- 
payable-aging-program GOES-TO Aging-report-program. 

* DERIVED FROM, describes a situation where an entity is derived from 
another entity such as Annual-report DERIVED-FROM program-file. 

* CALLS, describes a situation_ where one entity calls another entity 
such as Data-entry-program CALLS Aging-program. 

* REPRESENTED- AS , describes associations between ELEMENTS and certain 
other entitles that document the ELEMENTS format. An example of 
such a relationship- type is Employee-Name REPRESENTED-AS Asci 1-char- 
string. 

c. Attribute Types 

The attribute-types available as part of the core -system-standard 
schema are the ones selected by conscientious of participating DD users 
and DD software developers during the development of the IRDS standard. 

They represent most of the attributes that an organization would need to 
describe the core-system-standard entity and relationship-types. The 
attribute-types provide [Ref. 34] : 

* Audit trail information, a typical audit attribute- type is DATE- 
CREATED . 

* General documentation for entities, for example, DESCRIPTION and 
COMMENTS . 

See Appendix C for a complete list of the attribute-types. 
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4 o Entity Names 



The core IRDS allows flexibility in the assigning of entity names. 
The system also allows for several distinct names to be associated with an 
entity and for each name to serve a specific purpose. The core system 

allows for ACCESS NAME, DESCRIPTIVE NAME and ALTERNATE NAME. 

The access name is the entity ! s primary identifier and it is the 
basis for the structure of most commands and panels. The access name is 
designed to be short, for ease of use by the system and user. Normally a 
user will provide the access name of an entity. However an option exists 
for the IRDS to generate the access names for all entities of a given type. 

The names that are generated by the system may be modified at a later date. 

The descriptive name provides detailed information about the object 
represented by the entity. So the brevity of the access name poses no 
disadvantage to the system or user. 

The IRDS does place a requirement on the user that all access and 
descriptive names be unique throughout the system. This requirement was 
generated by the ANSI X3H4 and workshop participants to insure simplicity in 
the command language and panel interfaces. 

The core IRDS also allows for user assignment of ALTERNATE NAMES 
for an entity. The term alternate name is used here in the same sense as 
the terms "synonym" and "alias." The alternate name documents different 
names used to represent the same real world things. For example, the 
element whose access name is Social-Security-Number might have alternate 
names, SSN, Soc-Sec, No, and Social-Security-Number. 

D. FUNCTIONS AND PROCESSES 

This section describes the functions and processes provided as part 
of the core IRDS. 
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1. Populating and Maintaining the IRD 



The core IRDS provides functions to add, modify, and delete 
entities and relationships, 
a. Entities 

(1) Adding Entities . This function allows the user to 
add/create entities to the IRD. Some important aspects of adding a new 
entity are: 

* Declaring the type of the entity. 

* Designating the assigned access name. 

* Assigning a descriptive name to the entity. 

* Declaring attributes and attribute-groups for the new entity. 

The designated entity-type must be one that exists in the IRD schema. 

In order for the access name to be valid it must conform to the following 
rules : 

* The access name must conform to the length and picture requirements 
of IRD schema. 

* The access name used must not previously exist in the dictionary. 

* If the system is to generate the access name the user must supply 
the entity type and starting value see Figure 3.2 for examples. 

(2) Modifying Entities . This function is used to change the 
attributes of existing entities. When using the modify function the user 
may accomplish the following: 

* Creation of new attributes . 

* Modification of existing attributes. 

* Deletion of existing attributes. 

The core IRDS also offers a modification option that allows the user 
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ADD ENTITY u8-20 ENTITY-TYPE = SYSTEM 
DESCRIPTIVE-NAME = ASCADJDatabase_Update 
WITH ATTRIBUTES 

DESCRIPTION (START = 100 INCREMENT = 10) 

"This subsystem provides the capability for 
the staff to update the contents of the 
ASCAD Database.' 1 
SYSTEM-CATEGORY = "subsystem", 

SECURITY = "dataragr"; 

Figure 3.2 Sample Command for Adding Entity 
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to create a new entity which has all the values of the old entityt but 
with some desired modification. This option allows for the easy genera- 
tion of a new version of an existing entity which would be identified as 
a different form the original entity by a version number (Figure 3.3) . 



MODIFY ENTITY dd_01093 
WITH ATTRIBUTES 

DESCRIPTION = "A shared data field occupied by 
either cntry_code or state_code" , 

SECURITY = "datamgr" 

DATA-CLASS = "alphanumeric" , 

IDENTIFICATION-NAMES = 

(ALTERNATE -NAME = " cntry_s t_code " , 

ALTERNATE-NAME-CONTEXT = "pll") ; 

Figure 3.3 Sample Command for Modifying Entity 

(3) Deletion of Entities . The core IRDS allows entities to 
be deleted by specifying any of the following: 

* The access name. 

* Entity selection criteria (access names) which will result in the 
creation of a new entity-list. 

* The name of an existing entity-list created earlier in the session 
or saved from a previous session. 

b. Relationships 

(1) Adding Relationships . The core IRDS allows for the 
creation of new relationships other than those provided as part of the 
core. The important considerations in creating a new relationship in- 
clude designating: 

* The entities that are to be members of the relationship. 

* The relationship type. 

* Optionally , attributes and attribute groups for the new relationship. 

* The entity sequence for ordered relationships. 



42 



In creating a new relationship the user need only identify the access- 
names of those entities associated with the relationship. 



£2) Modifying Relationships . The core IRDS allows the user 
to modify any existing relationship by identify the relationship by type 
and the access associated with it. Using this function, allows the user 
to: 

* Change a relationship's attributes. 

* Create new attributes. 

* Delete existing attributes. 

* Change the sequence of entities associated with the relationship. 

(3) Deleting Relationships . The function is provided by the 
core system to allow for leletion of relationships, 
c. Copying Entities and Relationships. 

The core IRDS allows for the creation of new entities with the 
same attributes, attribute groups and relationships as an existing entity. 
In order for the new entity to be created the user must activate the 
copy function and specify a new access name which is not duplicated in 
the system. Optionally the user may designate a new full descriptive 
name for the entity to be copied. 

2 . IRDS Output Facility 

The core IRDS provides a GENERAL OUTPUT function for producing 
output of IRD entities, relationships, and attributes. The general output 
capabilities are discussed in a. below. The core IRDS also provides two 
additional output facilities the IMP ACT-OF -CHANGE function, which provides 
a report of all entities that might be affected by a change to a specific 
entity, and the SYNTAX-OUTPUT function which generates output in the same 
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format as data was entered to create the entity in the first place. 

These two functions are discussed in detail below, 
a. General Output 

The core IRDS requires that seven steps be completed before 
any output can be generated. Some of the steps are optional and therefore 
default values are available. The seven steps required for output genera- 
tion are: 

(1) Specify the views to which retrieval applies. The view is associated 
with the life cycle phase that the particular entity belongs to 
(See Figure 3.4 for an example). 

Select ENTITIES "Program- 2 (*•*)" 

Where *:* means all revision-numbers and all variation-numbers 
Figure 3.4 Sample Command Line 



(2) Selection of the entities to be output. This selection is performed 
via the entering of selection criteria. Criteria is generally 
entered at the initiation of the output process. Selection 
criteria includes (See Figure 3.4 

* The type(s) of entities to be retrieved. 

* Characteristics of the assigned access or descriptive name. 

* Characteristics of the associated version identifier. 

* Designated attributes or attribute groups. 

* Life-cycle-phases. 

* Relationships 

(3) Sorting the entities on a series of sort parameters. The available 
parameters are the same as those listed in D.2 above. Suppose a 
user wishes to sor the selected entities based on entity- type, 
variation name, assigned-access-name , and revi si on- number. 

Figure 3.5 shows how the command might look. 
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(.4) Designating what information is to be displayed include: 

* The kind of entity name (access, descriptive or alternate) 

* The life-cycle-phase of the entity. 

* One or more of the entity's attributes or attribute groups. 

* One or more relationships in which the entity participates. 

See Figure 3.6 for an example. 

entity-type (ascending) , variation 
(ascending) , assigned-access-name 
(ascending) , revision (descending) 

Figure 3.5 Sample Parameters 

(5) Routing information which sends the output to a particular 
destination. 

(6) Assigning a title to the output. 

(7) Providing a name for the output procedure to allow it to be re- 

called at a later time, when the same output is required. 

SHOW ASSIGNED-ACCESS NAME 

ASSIGNED-DESCRIPTIVE-NAME 

REVISION-NUMBER, VARIATION NAME 

Figure 3.6 Sample Output Format Command Line 
b. Output IMP ACT-OF -CHANGE 

AS previously stated, the IRDS allows for the printing or 
displaying of an Impact of Change report. This report is generated by 
a function that has two options. First, there is a cumulative impact- 
of-change option that lista all entities that will be impacted by a 

proposed change (s). Second, the Individual-Impact-Of-Change option 
produces a separate list of entities for each of the originally specified 

entity changes. 
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ENTITY- 1 

IA11 ENTITY-1 information in the order in 

which it was originally entered] . 

RELATIONSHIP- 1 The first relationship that the 
entity participates in and all the information 
associated with the relationship. 

RELATIONSHIP- j The jth relationship that the 

entity participates in and all the information 
associated with the relationship. 



ENTITY-n 

[All ENTITY-n information in the order in which it 

was originally entered] . 

RELATIONSHIP- 1 The first relationship that the 
entity participates in and all the information 
associated with the relationship. 

RELATIONSHIP-k The kth relationship that the 

entity participates in and all the information 
associated with the relationship. 

Figure 3.7 Sample Output Syntax Report Format 



ENTITY- 1 

[All ENTITY-1 information in the order in which 
it was originally entered] . 

ENTITY-n 

[All ENTITY-n information in the order in which 
it was originally entered] . 

RELATIONSHIP- 1 The first relationship that the entities 
participated in and all the information associated 
with the relationship. 

RELATIONSHIP-k The kth relationship that the 

entities participated in and all the information 
associated with the relationship. 

Figure 3.8 Sample Output Syntax Report Format 
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c. Output Syntax 



The output syntax function produces output that includes all 
information about the entity that was entered during the add-entity or 
add- relationship process. The output for this function has two formats. 

The first, involves the listing of each entity and all relationships 
associated with the entity (See Figure 3.7). The second, lists all for the 
entities first and then lists all the relationships associated with those 
entities (See Figure 3.8) 

d. Entity-lists 

The IRDS allows a user to create and manipulate lists of access 
names which may then be used as input to other IRDS output functions. 

The IRDS has functions that allow for the creation of entity lists, main- 
tenance of entity lists, assigning of names to entity lists, output of 
entity lists, output of entity list names and the performance of set 
operations on entity lists which include union, intersection and symmetric 
difference . 

e. Procedures 

Finally the IRDS provides a PROCEDURE FACILITY that allows the 
user to save a sequence of operations, used to produce an output. This 
facility also allows for the saving of previously defined procedures under 
unique names, execution of previously saved procedures by specifying its 
name and outputting the names and structures of existing procedures. 

3. Schema Maintenance and Output 

This section expands the discussion of the IRD Schema which was 
introduced in Section C.2 and also discusses schema maintenance and output. 

In the previous sections the schema was shown to include: 

ENTITY-TYPES, RELATIONSHIP-TYPES, RELATIONSHIP-CLASS-TYPES, ATTRIBUTES-TYPES , 
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and ATTRIBUTE-GROUP-TYPES all of which are described in the schema 



as meta-entities. Meta-entities represent real world entities in the IRD 
schema. Real world entities are objects of concepts such as sales manager 
account, balance sheet and others. The entities that represent these ob- 
jects, such as user, record or report are in turn linked by meta-relation- 
ships and both can have meta-attributes associated with them, 
a. Schema Control 

As stated in D.3 above the IRD schema contains meta-entities 
which are linked by meta-relationships with both the entities and relation 
ships being described via meta-attributes. 

(1) Meta-entity . The IRD schema allows for the following 
meta-entities: 

* Entity-type 

* Relationship-type 

* Attribute-type 

* Relationship -class- type 

* Attribute-group-type 

* At tribute- type-validation-procedure 

* Attribute-type-validation-data 

* Variation-names-data 

* Life-cycle-phase 

* Quality-indicator 

* Schema-defaults 

See Figure 3.9 for an example of an instance of each. 

(2) Meta-relationships . Meta-relationships represent 
relationships between two meta-entities. The core IRDS only allows one 
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occurrence of a relationship between any two meta-entities. Also 
meta-relationships are not given individual names in the core IRDS. 



Entity-type 

Relationship- type 

At tribute- type 

Relationship -class- type 

At tribute-group- type 

Attribute-type-validation-procedure 

At tribute-type-validat ion-data 

Variation-names-data 

Life-cycle-phase 

Quality-indicator 

Schema-defaults 

Figure 3.9 Instances of Meta-Entities 



The general form for a meta-relationship is meta-entity, 
meta-relationship, meta-entity. See Figure 3.10 for an example of the 
general form of a meta-relationship. 

(3) Meta-attributes . Meta-attributes perform a descriptive 
role with respect to meta-entities and meta-relationships. The core 
IRDS allows for four general types: 

* ADDED BY 

* ALLOWABLE-VALUE 

* DESCRIPTION 

* LAST-MODIFIED-BY 

* NUMBER-OF-LINES-OF CODE 
Figure 3.10 Sample Meta-Attributes 



* Documentation meta-attributes are used to document the purpose of 
the meta-entity. See Figure 3.10. 
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* Audit meta-attributes serve the same general purpose as the audit 
attribute in the IRD, that being to provide an audit trail of what 
has happened in the schema, see Figure 3.10. 

* Schema control meta-attributes provide certain controls over what 
can and cannot be done to the schema. 

* Dictionary control meta-attributes which provide control over the 
dictionary itself . 

(4) A Sample Schema Structure . Figure 3.2 shows a sample 
schema structure involving files. It demonstrates the use of meta-entities, 
meta-relationships and meta-attributes in the formation of schema, 
b. Schema Manipulation 

The core IRDS allows for the modification of the schema via 
adding, modifying and deleting of meta-entities and relationships. These 
functions are designed to be performed by only those individuals with the 
proper access authorization. 

(1) Adding meta-entities . The core IRDS will allow those 
users with the proper authorization to add new meta-entities. The kinds 
of meta-entities that can be added are listed in D.3.a.(l) above. New 
meta-entities may not be assigned the name of a meta-entity that already 
exists . 

(2) Modifying meta-entities . The core IRDS allows the user 
to modify meta-entities by associating a new meta-attributes with the 
meta-entity, by changing an existing meta-attribute or by deleting a 
meta-attribute that already is associated with the meta-entity. In the 
case of a changed or deleted meta-attribute the IRDS will insure that 
the change did not adversely effect the dictionary. 

(3) Deleting meta-entities . The core IRDS provides the 
user with the ability to delete an existing meta-entity from the schema. 
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However the IRDS will insure that the integrity of the dictionary is 
not violated, 

(4) Adding Meta-relationships , The core IRDS gives the IRDS 
user the ability to add new meta-relationships as he sees necessary. As 
stated earlier meta-relationships are associations between meta-entities. 
The process of adding a meta-relationship requires that the user specify 
the meta-entities that are to be members of the relationship and any meta- 
attributes that will be associated with the meta-relationship. 

(5) Modifying, Deleting and Replacing Meta-relationships . 

The core IRDS provides the user with the ability to modify, delete and 
replace meta- relationships . The modifying and deleting of meta-relation- 
ships is performed in the same manner as the modification and deletion 

of entities as explained in D.3.b.(2) and D.3.b.(3) above. The replace- 
ment of meta-relationships actually involves the combination of the 
delete meta-relationship and add meta-relationship functions. The replace- 
ment function is organized in this manner to insure the integrity of 
the IRD. 

(6) Modification of Meta-entity Names. The core IRDS allows 
the user to modify the meta-entity name. This process however falls 
along the same lines as the meta-relationship replacement function. It 
is the forced combination of the meta-entity deletion and add functions. 
This process is again used to insure integrity of the IRD. One addi- 
tional requirement exists and that is that the meta-entity name not be 
duplicated anywhere in the IRD. 

c. Schema Output 

The core IRDS allows those authorized to work with the schema 
the ability to output information about it. In order to produce the 
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output the user must select the meta-entities to be displayed. This 
selection is accomplished by choosing one of the following: 

* That all meta-entities be displayed. 

* That all meta-entities of a specific type(s) be displayed. 

* The name of a specific meta-entity. 

The resulting set of meta-entities may then be sorted on one of the fol- 
lowing parameters: 

* meta-entity-type 

* me ta- entity- name 

* Non repeating meta-attribute-types 

Before the sorted list is displayed the user must specify the informa- 
tion about each meta-entity he wishes to see. The display options avail- 
able to him are one of the following: 

* meta-name 

* met a- type 

* One or more of the associated meta-attributes 

* All or none of the associated meta-relationships in which the 
meta-entity participates 

4 . The IRD to IRD Interface 

The IRD to IRD interface is an important feature of the core 
standard IRDS because it is the only controlled means for moving data 
between two IRDS. This facility allows an organization with more than 
one IRD to transfer information between them. The facility is also de- 
signed to allow IRDSs developed by different vendors to interface and 
exchange information, provided a communication link exists and they have 
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followed IRDS standards. The core standard IRDS only allows for the 
transfer and does not have any means of providing the physical connection 
between the IRDS. In allowing for the interface the only important 
issue stressed is that the exporting and importing dictionaries and the 
exporting and importing schema's must be compatible. 

5. IRDS Control Facilities 

The core IRDS contains five control facilities that are impor- 
tant in populating and maintaining the IRD. These are: 

* The Versioning Facility 

* The Life-Cycle-Phase Facility 

* Quality- Indicators 

* Views 

* Security 

An overview of these was provided in Section D. This section presents 
additional detail on the structure and use of these facilities, 
a. The Versioning Facility 

The versioning facility provides the user with the ability to 
distinguish between entities that would otherwise be considered the same. 
The distinction is generated via the version-identifier which is composed 
of two parts: (1) a required revision-number and (2) an optional vari- 

ation-name . 

In the command language syntax the user encloses the version- 
identifier in parentheses and appends it to the access or descriptive 
entity name. Within the parentheses the variation-name (if used) is 
followed by the revision-number, separated by a colon. If the user does 
not specify a revision-number the system will default with a value of 
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1 to indicate that no revision exists and a value of 1 greater than 
the current value for any subsequent revisions. 

For example, suppose a certain payroll module exists that 
calculates state taxes for Alabama, Georgia, and Florida and another pay- 
roll module of the same functionality calculates state taxes for California 
and Texas. We can describe both with the same access name PAYROLL-MODULE, 
and differentiate between the two with different variation-names. Thus 
we could have PAYROLL -MODULE (AL-GA-FL:!) which would represent the Ala- 
bama, Georgia, and Florida capable payroll module with no revision. The 
California and Texas module which has had three revisions would be re- 
presented as PAYROLL-MODULE (CA-TX:4). 

b. The Life-Cycle-Phase Facility 

The life-cycle-phase facility of the core IRDS : (1) allows 

the user to define the life cycle phase to meet the methodology currently 
being used; (2) Provides facilities to assign each entity to a particu- 
lar phase? (.3) Provides integrity rules concerning the passing of an 
entity from one phase to another. Each phase is represented in the 
schema as a meta-entity. 

Every life-cycle-phase belongs to a "phase class" and the 
core IRDS recognizes three such classes: 

* UNCONTROLLED — Uncontrolled phases are "specification," "design" 
or "non-operational . " There are no integrity rules for this class 
and a user may identify as many phases with this class as desired. 

* CONTROLLED — Controlled phases are those that are considered to be 
"operational." The core IRDS allows only one such phase the 
"CONTROLLED-PHASE" with its associated integrity rules. The 
integrity rules will be covered in the next section. 

* ARCHIVED — The core IRDS can only have one ARCHIVED life-cycle- 
phase, called the "ARCHIVED- PHASE" and it is used to document and 
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classify entities no longer in use. This class also has special 
integrity rules associated with it, those will also be discussed in 
the next section. 

(1) Integrity Rules . As mentioned previously, integrity rules 
for the CONTROLLED and ARCHIVED life-cycle-phases are enforced by the 
core IRDS . These rules are based on a dierarchy of system- standard entity- 
types as defined by the following list. The highest in the hierarchy is 
the first and the lowest is the last: 

* SYSTEM 

* PROGRAM 

* MODULE 

* FILE 

* DOCUMENT 

* RECORD 

* ELEMENT 

This means that the entities are "Phase-related. " The hierarchy only 
applies to the core standard IRDS entity types and not to any entities 
added *by the user via the extendability facility. 

These are integrity rules in the sense of controlled 
and archived but not in the sense of allowable ranges of attribute data 
values, e.g.: "sex must be 'M' or 'F'. This type of integrity is handled 

through the ATTRIBUTE -TYPE-VALIDATION-PROCEDURE -META-ENTITIES : 

* RANGE-VALIDATION, which is used to restrict an attribute -type to an 
allowable set of ranges. 

* VALUE-VALIDATION, which is used to restrict an attribute-type to an 
allowable set of values. 

There are two relationship-class-types that are desig- 
nated as phase-related, they are CONTAINS and PROCESSES they are combined 
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with the entity-type to form phase-related relationship-types. Listed 
below in Table 3.1 are the relationship-types generated by this combination: 
The general integrity rule for entities in the controlled 
life-cycle-phase is: 

An entity can be in the CONTROLLED life-cycle-phase only if all entities 
whose types are below its type on the above hierarchy and that are con- 
nected to it with phase-related relationships are also in the CONTROLLED 
lif e- cycle-phase . 

The ARCHIVED life-cycle-phase has an integrity rule similar to that above: 

An entity can be in the ARCHIVED life-cycle-phase only if all entities 
whose types are below its type in the above hierarchy and that are con- 
nected to it with phase-related relationships are in either the CONTROLLED 
or ARCHIVED life-cycle-phase. 

The integrity rules are designed to insure that when an entity, for 
example "PAYROLL -SYSTEM" is moved jto a new phase, for example "OPERATIONAL- 
PHASE" that all of the programs and modules associated with the system 
are either already in the operational-phase or ready to be moved to it, 
thus insuring the integrity of the system, 
c. Quality-Indicators 

The core IRDS allows the user to define quality-indicators 
and assign them to entities. These quality-indicators denote such things 
as : 

* The level of standardization of an entity (e.g., program standards, 
organization standards, company standards, and international 
standards) . 

* The degree to which an entity meets the user quality assurance stan- 
dards, etc. 

All quality-indicators must be added to the IRD schema as 
a meta-entity. Also the core system-standard schema does not include any 
indicators, so all indicators must be user defined. 
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TABLE 3.1 

PHRASE- RELATED RELATIONSHIPS -TYPES 
SYSTEM-CONTAINS-SYSTEM 
S YS TEM- CONTAINS -PROBLEM 
S Y STEM-CONTAINS -MODULE 
PROGRAM-CONTAINS-PROGRAM 
PROGRAM- CONTAINS -MODULE 
MODULE-CONTAINS -MODULE 
FILE-CONTAINS -DOCUMENT 
FILE -CONTAINS -RECORD 
F ILE-CONT AINS - ELEMENT 
DOCUMENT-CONTAINS -DOCUMENT 
DOCUMENT-CONTAINS- RECORD 
DOCUMENT-CONTINS-RECORD 
RECORD-CONTAINS -RECORD 
RECORD-CONTAINS -ELEMENT 
ELEMENT-CONTAINS -ELEMENT 

SYSTEM-PROCESSES-FILE 

SYSTEM-PROCESSES-DOCUMENT 

SYSTEM-PROCESSES-RECORD 

S YS TEM- P ROC ES SE S -ELEMENT 

PROGRAM-PROCESSES-FILE 

PROGRAM-PROCESSES-DOCUMENT 

PROGRAM-PROCESSES-RECORD 

PROGRAM-PROCESSES-ELEMENT 

MODULE-PROCESSES-FILE 

MODULE-PROCESSES-DOCUMENT 

MODULE-PROCESSES -RECORD 

MODULE-PROCESSES -ELEMENT 
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d. Views 



Views are how the user logically perceives the dictionary and 
as such it is generally a subset of the complete dictionary. A view may 
be: (1) a set of entities with associate entities, attributes, and attri- 

bute-groups; (2) a set of relationships with its associated entities, 
attributes, and attribute-groups or (3) a set of specifications of opera- 
tions that may be performed by the user. 

Structurally, VIEW is an entity- type in the core IRDS system- 
standard schema and each view in the IRD is an instance of that entity-type. 
For example, if a particular programmer is working on the Payroll- 
system of an organization. His view of the IRD would be all the programs, 
modules, files, records and elements contained in or processed by the 
Payroll system. 

The core IRDS allows an organization to define what views are 
available to a user thus limiting his access to the dictionary. if more 
than one view is available to a user, one will be designated as the default- 
view and will be presented to the user each time he uses the system un- 
less he specifically specifies otherwise. Views associated with each 
user are stored in the IRD as attributes of the DICTIONARY-USER entity, 
e. Core Security 

The general mechanism that implements core IRDS security con- 
sists of the following: 

* For each authorized user of the IRDS, one DICTIONARY-USER entity 
exists. Associated with this entity are attributes that define 
the user’s level of access. 

* Associated with each VIEW entity are attributes that define the 
permissions and restrictions that apply to all IRDS users allowed 
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to use the view. These include the abilities (independently specified 
for each entity-type), to read, add to, modify, and delete the entities 
that comprise the view. 

* Finally, each DICTIONARY-USER entity is linked to those views that 
the user can access. 

(1) Access Permission . Most IRD ACCESS PERMISSION is 
associated with view entities, and, for each view, the permission applies 
to all entities in that view. Each permission consists of several parts: 

* The name of the entity- type for which the permissions are specified. 

* An indicator showing if permission exists to read entities of the 
specified type. 

* An indicator showing if permission exists to add entities of the 
specified type. 

* An indicator showing if permission exists to modify entities of the 
specified type. 

* An indicator showing if permission exists to delete entities of the 
specified type. 

* An indicator showing which relationships are explicitly excluded 
from that view. 

* An indicator showing if permission exists to modify the life-cycle- 
phase of entities of the specified type. 

These permissions are stored in the IRD as a DICTIONARY- 
PERMISSION attribute-group. Each view may have multiple permissions 
associated with it. 

The core IRDS specified five categories of permission: 

* GLOBAL PERMISSION: All schema functions are allowed. 

* GLOBAL PERMISSION FOR UNLOCKED META-ENTITIES: Permission to perform 

all schema functions except those that modify or delete meta-entities 
that have installation-lock set on. 

* ATTRIBUTE-TYPE-VALIDATION-DATA WRITE PERMISSION: Read attribute type 
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validation data and modify their meta-attribute. 

* ATTRIBUTE-TYPE-VALIDATION-DATA READ PERMISSION: permission to read 

attribute-type-validation-data and their meta-attribute. 

* REPORTING PERMISSION: permission to read the complete schema. 

This facility is implemented through attributes of the DICTIONARY-USER 
entity . 

6 . User Interfaces 

This section discusses the command language and panel interfaces. 
An implementation of the IRDS may contain either or both of the inter- 
faces but each interface will support the full capabilities of the IRDS. 

As stated earlier the IRDS interfaces are designed to allow the 
system to communicate with the user and vice versa. The panel interface 
is designed to prompt the novice through the system while the command 
language interface is designed for the more experienced user and thus 
skips most of the panels used in the panel interface. 

a. Command Language 

The COMMAND LANGUAGE interface supports both batch and inter- 
active modes. The commands used by the command language interface cor- 
respond closely with the functions discussed throughout this chapter. 

The syntax of each of the command language commands is presented in the 
Bacus-Naur form. Since the command language closely parallels the dis- 
cussion presented in the previous sections a detailed discussion of each 
command will not be attempted. A summary listing of the commands and 
their associated functions is provided in Appendix E. However the 
command language is discussed and illustrated in depth in [Ref. 35] . 
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b. Panel Interface 



The core IRDS provides the user of the system a structured 
set of logical screens (or panels) which, when used in the proper sequence 
perform the functions of the system. The panels can be considered to 
be user friendly in that they guide the user through the procedures for 
a function. 

The core IRDS does not specifically identify a panel structure 
of physical implementation of the panel interface. It is therefore up 
to the user to define his own panel structure and panel map (which panel 
follow which) for each function. 

The core IRDS does provide rules for the structure of the 
panels used by the IRD. They are: 

* Each panel shall have a unique name. 

* The panel interface is to have an inter-panel structure that de- 
fines a default progression of panels. 

* The first panel encountered is the HOME panel. 

* The user may return to the HOME panel at anytime. 

The structure of the panel interface is defined in terms of 
panel trees and panel areas. A panel tree is the collection of one or 
more panels used to perform a single function. A panel area is a portion 
of a panel that is associated with a particular category of information, 
and deals with the user interaction with the IRDS. The core IRDS identi- 
fies six different areas associated with the panel, not all of which are 
shown to the user at one time : 

* STATE AREA — This area will always be displayed to the user. It 
informs the user of the name of the dictionary being accessed, and 
what is being done with the current panel, for example, adding a 
record. 
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* DATA AREA — The data area supports the user in one of two ways: 

It displays labels that guide the user while he/she performs data 
entry; and, if the user is retrieving information, it displays the 
results . 

* SCHEMA AREA — The schema area is primarily used during dictionary 
update operations. Examples of the use area include: 

The listing of all valid entity- types , when adding an entity. 

- Displaying names of attribute-types that may be associated with 

an entity- type being entered. 

* ACTION AREA — The action area displays the options that a user has 
when proceeding from the current panel to another. 

* MESSAGE AREA — This panel area displays any errors and warning 
messages . 

* HELP AREA — The help area displays information that the system can 
provide in response to a request for help. 

c. Operation on the Panel Interface 

The panel interface will generally be available to all IRDS 
users. The core IRDS does not however, require that the panel made avail 
able to a user be tailored to meet his view of the system. The panel 
interface will still only allow the user to perform those functions and 
operations allowed according to his view and current security. 

7. IRDS Modules 

The draft proposed IRDS standard contains specifications for 
three modules which may be implemented along with the core IRDS. They 
are: 

* ENTITY LEVEL SECURITY. [Ref. 36] 

* APPLICATION PROGRAM (CALL) INTERFACE. [Ref. 37] 

* SUPPORT OF STANDARD DATA MODULES. [Ref. 38] 

Since the scope of this thesis deals primarily with the capa- 
bilities of the core IRDS, the references listed above should be con- 
sulted if any additional information beyond that provided is required. 
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a. Entity Level Security 

This module allows the user the ability to assign read and 
write limitations to individual entities. This facility operates in 
addition to the security function provided inthe core IRDS . 

To accomplish entity level security, the module introduces 
the entity-type ACCESS -CONTROLLER, and a set of SECURED-BY relationship- 
types that allow an ACCESS -CONTROLLER entity to be connected with entities 
of all other types. 

b. Application Program (call) Interface 

This module provides an interface from a standard programming 
language to the IRDS. This is accomplished by using the call feature of 
the programming language. In this way the IRDS is treated as an applica- 
tion program subroutine. 

c. Support of Standard Data Models 

An implementation of the specifications of this module would 
assist an organization in describing network and relational databases, 
particularly those supported by NDL and SQL command languages. The 
describing of network and relational databases is accomplished through 
the addition of three new entity-types, twelve new relationship-types, 
and fourteen new attribute-types to the Core System-Standard Schema, 

See Appendix D. 

E. CONCLUSION 

The NBS IRDS standards provide the Information Resource Management 
arena a valuable tool. An implementation of an IRDS using the core 
standards as discussed above would deliver to the DBMS user tremendous 
capability, flexibility and uniformity in describing and controlling an 
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organizations data. Finally the capabilities described above far exceed 
that which is currently available with most of the dictionaries provided 
with DBMS products. 

But is an IRDS implementation possible. The next chapter discusses 
just such an implementation. 
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IV. NBS IRDS PROTOTYPE 



This chapter discusses the implementation of selected portions of 
the NBS IRDS standards in the form of a relational prototype IRDS provided 
as Appendix E. Before discussing the NBS IRDS capabilities included 
in the prototype. It is necessary to discuss prototyping, its advantage/ 
disadvantages and why prototyping was chosen as the method for implement- 
ing an IRDS . 

A. PROTOTYPING [Ref. 39] 

Webster’s dictionary defines a prototype as one of three possible 
things : 

* An original or model after which anything is formed 

* The first thing of its kind 

* A pattern, an exemplar, an archetype 

The second definition is probably the most relevant to this discus- 
sion because prototypes are being used in data processing as a first attempt 
at design which is then extended or enhanced. In general systems develop- 
ment, a prototype is known as 

. . . a partially complete functional model of a target system whose 

purpose is to provide a better understanding of the target system's 
requirements [Ref. 40] . 

A software prototype is characterized by the following feature. It 
is a working system, although of limited capability, rather than just 
an idea on paper. A prototype may become, after iterative enhancement, 
a production system. Its original purpose is to test assumptions about 
requirements and/or system design architecture. A prototype is created 
quickly. This has become possible only in recent years with more power- 
ful languages such as dBase II and III which are less procedurally 
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oriented. Some would argue however, that prototyping was the way soft- 
ware was developed before the advent of functional decomposition and the 
system development life cycle whch is generally accepted and used today. 

In the early days of software development writing programs was the 
thing to do. After an explanation of the problem, a period of ques- 
tions and answers, and research into the nuts and bolts of a method, 
the programmer began his or her work. Starting with that portion of 
the problem that was well understood, lines of FORTRAN, COBOL or ALGOL 
would begin to appear. As time passed additional portions were coded 
until the entire program was complete. Design was conducted implicitly, 
if at all! [Ref. 41] 

A prototype should be inexpensive to build, at least less than it 
would cost if a conventional high level language were used. Indeed, pro- 
totyping in data processing originated only recently because until re- 
cently, programming a protype was just as costly as programming the 
working system [Ref. 42] . The important point is to get something running 
soon to establish effective communications with the user without the use 
of extravagent resources. the follow-on development of a prototype is 
an iterative process in which improvements are made in small increments 
as the user developer work together and discover new requirements. 

[Ref. 43] 

Mitchell Spiegel, formerly of Wang Laboratories, explains the proto- 
typing approach as : 

... a process of modeling user requirements in one or more levels of 
detail, including working models. Project resources are allocated to 
produce scaled down versions of the software described by requirements. 
The prototype version makes the software visible for review by users, 
designers and management. This process continues as desired, with run- 
ning versions ready for release after several iterations. [Ref. 44] 

Traditional management information system development follows a 
series of steps (see Figure 4.1). Prototyping is considered as an 
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adjunct activity to the specification of requirements (See Figure 4.2). 

The results of prototyping are input to the steps following requirements 

Feasibility Study 
Requirements 

Product/Preliminary Design 
Detailed Design 
Coding 
Integration 
Implementation 
Operations and Maintenance 

Figure 4.1 Steps in Traditional System Development 

analysis, but may or may not be used actively in those steps. 

1 . Advantages of Prototyping - 

There are several advantages associated with the use of proto- 
typing. First a prototype usually gets the product into use as early as 
possible. Early use can provide assistance to the decision makers and 
feedback to the builders. Second, prototyping is considerably cheaper 
than a "full-build" approach, which delays installation until the pro- 
duct is complete. Third, prototyping is a convenient way pf keeping the 
product simple, which is valuable to both builders and users. Fourth, 
prototyping lowers risk and expectations. [Ref. 45] Fifth, it is easy 
to write statements in a requirements document which say "the system 
shall do x" and "the system shall be capable of y." However, both the 
developer and the user get a more realistic feeling for the effort and 
cost of a feature when they must actually add it to a working model. 

Thus, the eventual model better represents what is feasible than a 
document with a series of "shall statements." Even though the 
functionality of a prototype product is minimal, the user is forced to think 
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more carefully about the task being automated. This should produce a 
more accurate understanding of the problem [Ref. 29]. Finally, prototyping 
unlike traditional methods builds an effective brigade across the com— 
nunication gap between the user and the developer. 



Fe as i b i 1 i 


i ty Study 


1 . 
2. 


Identify basic needs 
Develop working mode 


Requ i remen ts 


3 . 


Demo in context & 
Solicit refinements 


Produc t/ 


Preliminary Design 


4. 


I mp 1 erne n t revisions 


De t a i led 


Design 


5 . 


Is prototype done ? 
If YES, go on to 
detailed design 


Cod i ng 




If NO, go bacR to 
step 3 



Integration 
Imp 1 emen t a t i on 



Figure 4.2 System Development Using Prototyping 



2 . Disadvantages of Prototyping 

Prototyping has some decided disadvantages as well. Prototyping 
makes it difficult to plan resource vise because a clear picture of what 
the finished product will look like is not provided. It also makes it 
difficult to decide whether to enhance an old version or build a new one. 
Analysts and user can become bored after the nth iteration of the prototype. 
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In using the traditional development process there are specific require- 
ments which, when met by proof of validation, clearly mark the job as com- 
plete. Because the prototype is changing continually, it creates a problem 
keeping users abreast of the current version and what has been validated 
and what has not. Prototyping can cause a reduction in discipline for proper 
documentation and testing (although this has nothing to do with the prototype 
itself) . Because there is less emphasis on hard thinking and "desk check- 
ing 11 there is a greater chance of missing a basic problem which could 
negate assumptions essential to the product being developed. Also there 
is the chance users may become so happy with the prototype that they consider 
it a functional product and want the data processing people to start work 
on something else. A study using. the ACT/1 software package for prototyping 
showed increased needs for computing resources. If the productivity gained 
from using prototyping doesn’t offset the cost of the increased computing 
power, then the prototyping approach is serving at a disadvantage. 

3 . Types of Prototyping 

There are two approaches to prototyping: the throwaway prototype 

The throwaway prototype development process has the advantage that when 
the developer can show the user an immediate capability when he is through, 
he can just discard the product. This lowers the developer’s risk and 
the user’s expectations. The evolving prototype process on the other 
hand is better suited for the development of an initial capability that 
will evolve into a finished product. The evolving prototype has the 
disadvantage that the user may accept the first version and thus short 
circuit full development. 
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4 . Reasons for Prototyping 



Prototyping was chosen as opposed to full life cycle development, 
because time constraints prevented full development of a DD system 
whereas prototyping allowed a viewable product to be produced in the 
given timeframe. Additionally the evolving prototype process was used to 
develop the IRDS with the anticipation that additional capabilities as 
specified in the NBS IRDS standards would be added according to user needs 
as additional versions were implemented. 

B. THE IRDS PROTOTYPE 

dBASE III a Data Base Management System (DBMS) was selected as the 
development tool for the IRDS prototype, because data dictionary systems 
are essentially a specialized kind of database system. The prototype 
could have been written in Pascal or COBOL but the time required to produce 
a usable product would have been prohibitive. Additionally since the 
prototype was developed using a DBMS system certain capabilities were al- 
ready available, i.e., a query processor, file maintenance routines, and 
high level language. The intention was not to develop a marketable pro- 
product but to demonstrate and evaluage the capabilities described in the 
NBS IRDS standard. 

The IRDS prototype is based on a reasonable subset of the core features 
presented in Chapter 3. The features listed below constitue IRDS Proto- 
type Version 1.0 (See Appendix C) : 

* Panel Interface 

* Security 

* Add Entity 

* Modify Entity 
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Delete Entity 



* 

* Add Relationship 

* Modify Relationship 

* Delete Relationship 

* Add Schema 

* Modify Schema 

* Delete Schema 

* IRDS Output 

* IRDS Query 

The remainder of the features listed in Chapter 4, though desirable, 
will be left for implementation in later versions. 

1. A Relational Model of the IRDS 



The IRDS prototype accounts for several different relations in- 
cluding users, systems, programs, modules, document, files, records and 
elements. The generalized format of these relations is as follows: 

* USER ( access-name , id-name, duration-type, description, date-added, 
added-by, comments, last-modification-date, last-modif ied-by , number- 
of-modifi cations) 

* SYSTEM ( access-name , id-name, duration- type , description, date-added, 
added-by, system-category, comments, last-modification-date, last- 
modif ied-by , number-of-modifications) 

* PROGRAM ( access-name , id-name, duration- type , description, date-added, 
added-by, lines-of-code , comments, last-modification-date, last- 
modif ied-by , number-of-modifications ) 

* MODULE ( access-name , id-name, duration-type, description, date-added, 
added-by, lines-of-code, comments, last-modification-date, last- 
modif ied-by , number-of-modifications) 

* DOCUMENT ( access-name , id-name, duration- type , description, date- 
added, added-by, comments, last-modification-date, last-modif ied-by , 
number-of-modifications) 
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* FILE ( access-name , id-name, duration-type, description, date added, 
added-by, number-of-records , comments, last-modification-date, last- 
modi fied^by , number-of-modif ications ) 

* RECORD ( .access-name , id-name, duration-type, description, date-added, 
added-by, number-of-elements , size, comments, last-modification-date, 
last-modified-by , number-of-modif ications) 

* ELEMENT ( access-name , id-name , duration- type , descritpion, date-added, 
added-by, element-type, e lement- length , low-of-range , high-of-range , 
allowable-value , comments , last-modification-date , last-raodified-by , 
number-of-modif ications) 

for a detailed explanation of the attributes for these relations see 
[Ref. 47]. 

Relationships among the various relations are tracked by having 
relations with a verb name reflecting how one entity relates to another. 

For example, since a program can contain several modules, a program-con- 
tains-module relations is included in the dictionary. Its format is as 
follows : 



* PROGRAM-CONTAINS -MODULE ( program-name , 

module-name) . An example of this relation would be: 



P ROGRAM- CONTA I NS -MODULE ( u- 8 , u- 8 - 1 0 ) 

(u-8, u-8-20) 

(u-8 , u-8-30) 

The prototype implements twelve of the sixty-four relationships specified 
in the NBS IRDS standard. See Appendix A for a complete listing of the 
allowable relationships. Listed below are the twelve relationships in- 
cluded in the prototype: 

* PROGRAM-PROCESSES-RECORD ( program-name , record-name ) 

* PROGRAM-PROCESS-FILE ( program-name , file-name ) 

* SYSTEM-CONTAINS-FILE ( system-name , file-name ) 
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* USER-CONTAINS -SYSTEM ( user-name , system- name ) 

* USER-RESPONSIBLE-FOR-SYSTEM ( record^name , system-name ) 

* FILE-CONTAINS -RECORD ( file-name , records-name ) 

* RECORD-CONTAINS -ELEMENT ( record-name , element-name ) 

* USER-RESPONSIBLE-FOR-FILE ( user-name , file-name ) 

* PROGRAM- PRODUCES -DOCUMENT ( program-name , document-name ) 

* PROG RAM-CONTAINS -MODULE ( program-name , module-name ) 

* S Y STEM-CONTAINS -PROGRAM ( system-name / program-name ) 

* PROGRAM-PROCESSES -ELEMENT ( program-name , element-name ) 

2 . Interface 

The NBS IRDS standard provides for two user interface capabilities 
The Command Language Interface and the Panel Interface. The Panel Inter- 
face method was chosen because it provides a "user friendly" communica- 
tion link between the IRDS and the user. Figures 4.3 thru 4.6 provide 
a series of panel trees that diagrammatically represent panel interface 
system used. 

The panel structure itself followed the guidelines provided in 
the IRDS standard (See Figure 4.7). The IRDS standard allows for six 
possible areas to be defined in the panel state area, data area, schema 
area, action area, message area and help area. All areas except the 
help area are included in this prototype. Figure 4.7 shows what portions 
of the screen are used for each of the areas. 

C . IRDS START-UP 

This IRDS prototype was written in dBASE III and uses panel interfac- 
ing as the means of communication with the user. The first panel that 
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Figure 4.3 The Panel Interface — Overall Structure 
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Figure 4.4 Dictionary Maintenance Panel Tree 
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Figure 4.7 Panel Structure 
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that a user sees when signing on the system, is one that requires the 
individual to insure that he/she has the computer in the proper mode 
(Figure 4.8) 

D. SECURITY 

Security is provided in two ways. First, the system requires the 
user to enter a user ID and password which are stored as attributes of 
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* # 

* ‘ * 
* * 
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*********************************************************************** 



Figure 4.8 Initial Panel 



the SECURITY- ACCESS ENTITY. Second, the SECURITY-ACCESS ENTITY contains 
additional attributes that pertain to which entities the user can view, 
display and/or modify (See Appendix F for a detailed description the 
entity structure). Figure 4.9 depicts the panel that requires the user 
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to log into the system using his user ID and password. Once a user has 
entered his ID and password the system will grant or deny access to the 
system. The system will allow the user three chances to enter his ID 
and password correctly, if a proper logon has not been accomplished at 
that time the system will terminate. If access is granted additional 
variables will be loaded to the system that will restrict the user ability 
to add, modify and change relations and relationships during the current 
session. The data administrator • is the only user capable of modifying 
the attributes associated with a user's security-access entity. Once 
the user has successfully logged in, the system will display the main 
menu (Figure 4.10). From this point the user can proceed to any other 
panel. This panel must always be returned before any other function can 
be used. 

E. POPULATING AND MAINTAINING THE DICTIONARY 

The routines to add, modify and delete entities and relationships are 
executed from the maintenance menu (See Figure 4.11). The user decides 
which maintenance activity he want to do and makes the appropriate menu 
selection. The system will then activate the appropriate maintenance 
module and present a panel to the user showing him what his options are or 
what input is required. 

The following sections describe each of the five dictionary maintenance 
functions available to the user as part of the prototype. 

1. Adding Entities 

If the prototype user selects the add entity option from the 
maintenance menu, the system will prompt him as to which type of entity 
he would like to add (See Figure 4.12). Once the user has indicated his 
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Figure 4.10 Main IRDS Panel 
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Figure 4.11 Maintenance Panel 
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choice, the system will present a panel prompting the user to enter the 
appropriate attributes about the entity (See Figure 4.13). For a 
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Figure 4.12 Add Entity Panel 



complete list of all allowable entity attributes See Appendix A. 

2 . Modifying Entities 

If the prototype user elects to modify an existing entity, the 
system display a panel asking which entity he desires to modify (Figure 
4.14 and 4.15). Once the user makes his selection as to which entity 
to modify the system restrieves the desired tuple and presents a panel 
displaying it's current contents. The user can then modify the tuple as 
desired (Figure 4.16) 
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Figure 4.13 Add Entity Data Input Panel 
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Figure 4.14 Modify Entity Panel 
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Figure 4.16 Modify Entity Input Panel 
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3 . Deleting Entities 



If 

presents a 



the prototype user selects the delete entity option, the system 
panel requesting that the user select an -entity type to delete. 
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Figure 4.17 Delete Entity Panel 



The system then request the user to identify the particular entity tuple 
to be deleted and provided instructions on how to complete or short the 
deletion. Once the user indicates which tuple he wishes to delete, the 

system displays the tuple and waits for the user to complete the 

transaction (Figure 4.16 thru 4.18) 

4 . Adding Relationships 

If the prototype user elects to add a relationship the system 
present a panel asking him to select which type of relationship he wishes 
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Figure 4.18 Delete’ Entity Selection Panel 
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Figure 4.19 Delete Entity Confirmation Panel 
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to add (Figure 4.20), When the user makes his choice the system 
executes the relationship add module and prompts the user for the required 
input (Figure 4.21) This prototype version allows 12 relationships. 

See Appendix A for a complete list of all relationships allowed in the 
IRDS standard. 



1 . 1 .4.8 .8 .0 

INFORMATION RESOURCE DICTIONARY SYSTEM 
ADD TO RELATIONSHIP 

1) USER CONTAINS SYSTEM 8) FILE CONTAINS RECORDS 

2) SYSTEM CONTAINS PROGRAM ?) RECORD CCNTAINS ELEMENT 

3) PROGRAM PROCESSES FILE 10) USER RESPONSIBLE FOR SYSTEM 

4) PROGRAM PROCESSES RECORD 11) USER RESPONSIBLE FOR FILE 

5) PROGRAM PROCESSES ELEMENT 12) PROGRAM PRODUCES DOCUMBIT 

6 ) SYSTEM CONTAINS PROGRAM 13) RETURN TO PREVIOUS MENU 

7) PROGRAM CONTAINS MODULE 14) RETURN TO NUN MENU 
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************************** * ********* ** ********* ********************** 



Figure 4.20 Add Relationship Selection Panel 



5 . Modifying Relationships 

This version of the IRDS prototype does not contain a modify re- 
lationship capability as the add relationship module serves the same 
purpose . 
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6 . Deleting Relationships 



This module of the IRDS prototype allows the user to select a 
tuple of a particular relationship and mark it for deletion. The user 
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Figure 4.21 Add Relationship Input Panel 



must identify which type of relationship he want to modify (Figure 4.24). 
After the user makes a selection, the delete module is loaded which prompts 
the user to identify which tuple to delete and provides him with instruc- 
tions on how to complete the transaction. The system then retrieves 
the tuple and displays it for verification and transaction completion 
(See Figures 4.25 and 4.26). 

F. THE DICTIONARY OUTPUT FACILITY 

The IRDS prototype allows the user to generate dictionary output in 
two forms, screen and printer. When the user selects the dictionary output 
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Figure 4.24 Delete Relationship Selection Panel 
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Figure 4.25 Delete Relationship Panel 
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option from the main menu, the system executes the dictionary output 
module and presents to the user a panel (Figure 4.27) requesting that 
he choose entities or relationships as output. 



a*#############*#*##############*###############*###*####*############* 
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# 

*************************************************t***tnitttiiMttttttl 

Figure 4.26 Delete Relationship Tuple Verification Panel 
1 . Entities 

If the user chooses the entity output option, the system presents 
a panel requesting the type of entity to be output (Figure 4.28). The 
system then prompts for whether output is to be generated and displayed 
on the screen or sent to the printer (Figure 4.29). The system then 
displays all tuples of the entity- type selected, one at a time for 
screen output and all at once for printer output (Figure 4.30). The 
current version of the IRDS prototype does not allow the user to select 
which attributes will be displayed or limit the number of entities 
displayed. However the query function does give the user the ability 
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to display selected entity types. This capability will be discussed in 
Section G. 
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*********************************************************************** 

Figure 4.27 Dictionary Output Selection Panel 

2 . Relationships 

If the prototype user decides to output the tuples associated with 
a particular relationship, he makes the appropriate choice on the diction- 
ary output panel (Figure 4.27). The system activates the appropriate 
module and then requests that the user identify the relationship to be 
output (See Figure 4.31. After the user selects the relationship, the 
system prompts for whether output is to be generated to the screen or 
printer (Figure 4.32). The system then displays all tuples of the entity- 
type selected (Figure 4.33). This version of the IRDS prototype does 
not allow the user to select which entities associated with the relationship 
are to be displayed. However the query function does give the user the 
ability to display selected entities with a relationship. 
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*********************************************************************** 



Figure 4.28 Entity Output Panel 
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Figure 4.29 Output Selection Panel 
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****t****»»**ft»***t**ft»******»t**t*»*»*t**»****»**»*»ftt*ft**»**»t*»*»**» 

* * 

* #* 

* * 

* * 

* Tuple No. 1 * 

» USER * 

* ACC-miE PAY-OEPT » 

* 10 NAME PAYROLL DEPARTMENT * 

* DESCRIPT The department witTiin the organization that pro- » 

* duces the companies weekly and monthly payroll. • 

* DATE ADDED 0 d/0 1/85 * 

* ADDED BY Robert A. Kirsch II * 

* CChMENTS This is a standard attribute of the IRDS. * 

» * 

* LST MOD DT 0d/01/85 * 

* LSTH0D“BY Kirsch « 

» NUtTOF ROD 001 » 

* LOCATION Schema * 

* SECURITY none * 

» * 

* PRESS RETURN TO SEE THE NEXT TUPLE. * 

* 

» 

if********************************** **»***#**#*#**#****##**#**#**i***#»* 



Figure 4.30 Entity Output 
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* * 



ft ft 

# 1 2 2 8 8 8 ft 

# INFORMATION RESOURCE DICTIONARY SYSTEM * 

# ft 

# RELATIONSHIP OUTPUT # 

ft ft 

# 1) USER CONTAINS SYSTEM 8) FILE CONTAINS RECORDS » 

ft ft 

» 2) SYSTEM CONTAINS PROGRAM 9 ) RECORD CONTAINS ELEMENT * 

ft ft 

# 3) PROGRAM PROCESSES FILE 18) USER RESPONSIBLE FOR SYSTEM * 

ft ft 

# 4) PROGRAM PROCESSES RECORD 11) USER RESPONSIBLE FOR FILE # 

ft ft 

ft 5) PROGRAM PROCESSES ELEMENT 12) PROGRAM PRODUCES DOCUMENT » 

ft ft 

ft 6) SYSTEM CONTAINS PROGRAM- 13) RETURN TO PREVIOUS MENU * 

ft ft 

ft 7) PROGRAM CONTAINS MODULE 14) RETURN TO MAIN MENU » 

ft ft 

ft ENTER YOUR CHOICE (1-14) FROM ABOUE: ft 

ft ft 

ft ft 

ft ft 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft4ftftftftftftftftftftftftftftftftftftftftftft*ftftft 



Figure 4.31 Relationship Ouptput Selection Panel 
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ftftftftftftftftftftftftftftft»ftftftftftftftft#ftftftftftftft«************************************* 



Figure 4.32 Output Selection Panel' 
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* RECORD V 1 ft 
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* USER ACCESS WME: PAY-DEPT ft 
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ftftftftftftftftftftftftftftftftftftftftftftftftftfttftftftftftftftftftftftftftfftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 



Figure 4.33 Relationship Output 
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3. Schema 



The IRDS prototype also allows the user to display the 
schema for all entity-types and relationship-types . In order to exe- 
cute this portion of the prototype the user selects SCHEMA OUTPUT 
from the main menu (Figure 4.10). Once the selection has been made, 

*****0*************************************** ****** ******************* 



* ft 

*1.5. 0.0. 0.0 * 

* INFORMATION RESOURCE DICTIOWRY SYSTEM * 

* * 

* 5CHEMA OUTPUT * 

* * 

» ft 

ft 1) ENTITY ft 

ft * 

ft 2) RELATIONSHIP ft 

ft ft 

ft 3) RETURN TO httIN MENU ft 

ft * 

ft ENTER YOUR CHOICE (1-3) FROM ABOVE: ft 

ft ft 

ft * 

ft ft 

ft * 

ft » 

ft ft 

ft ft 

ft ft 



ftftft»ftftftftftftftftftftftftftftftftftftftftftftftftft»ft*ftftft*ftft*ftftftftftftftftftftftftftft**ft*ftft*#*ftftft*ftft4*ft 

Figure 4.34 Schema Output Selection Panel 



the system executes the schema output module and requests that the user 
choose which type of schema to output and it's ACCESS-NAME (Figure 4.34 
and 4.35). The user is then prompted by means of a panel to select the 
output medium. The system will then display the requested schema struc- 
ture (Figure 4.36 and 4.37). Figures 4.36 and 4.37 provided below depict 
the output of an entity- type schema. The process for displaying a re- 
relationship schema is identical and will not be explained further here. 
G. QUERY 

The IRDS prototype query function give the prototype user the ability 
to generate ad hoc queries about any relationships that the system 
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Figure 4.35 Entity Select Panel 



»*ft»*ft*»*ft»»**»ft«ftftft»*»ft»ftftftftft**ftftft***ftftftft*ftft*ftft***********ft**********» 



1.5. 1.1. 0.0 
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Figure 4.36 Output Selection Panel 
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maintains,. Not all of the IRDS standard relationships are im- 
plemented in this version of the IRDS prototype (See Appendix A for a 
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*********************************************************************** 



Figure 4.37 Sample Schema Output 



list of the allowable relationships) . The remainder of the relationships 
will be reserved for implementation in' subsequent versions of the proto- 
type. The prototype uses a keyword selection process to generate a query 
of the form SUBJECT-VERB-OBJECT and a query processor to process the 
query and generate the resulting output. When the user selects the 
query option from the main menu (Figure 4.10), the system executes the 
query module and present a panel (See Figure 4.38) requesting that the 
user choice which entity-type is to be the subject of the query. The 
system then requires the user to enter the ACCESS-NAME of the entity 
to be queried and select whether entries are to be verified before 
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**********o*o****#**#*****o*******o********* *********************** 



1 .3.0.8 .0.0 



ENTITY-1 



INFORMATION RESOURCE DICTIONARY SYSTEM 
QUERY MENU 

RELATIONSHIP ENTITY-2 



1) USER 

2) SYSTEM 

3) PROGRAM 

4) DOCUMENT 

5) FILE 

6 ) RECORD 

7) ELEMENT 

9) RETURN TO PREVIOUS MENU 

18) RETURN TO MAIN MENU 

ENTER YOUR CHOICE (1-18) FROM ABOVE: 1 

DO YOU WISH TO VERIFY YOUR ENTRIES Y or N 
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*********************************************************************** 



Figure 4,38 Query Entity-Type Selection Menu 
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JHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHfrfcfcJHHHHHHHHHHHHHHfr###### 



» » 

^ 1 3 8 8 8 8 # 

* INFORMATION RESOURCE DICTIONARY SYSTEM * 

# * 

* QUERY MENU * 

* * 

* USER RELATIONSHIP ENTITY-2 * 

* # 

* ENTER THE ACCESS-NtflE FOR THE USER * 

* YOU WISH TO QUERY ON PRESS RETURN PAY -DEPT * 

* * 

* » 

* IS THIS THE ENTITY YOU WISH TO QUERY ON PAY-DEPT Y OR N * 

* * 



*********************************************************************** 



Figure 4.39 Entity-1 Selection Menu 



»»***«**»*******»»»*»********«****»**»»*ft»****»**»**»*****«*»*»»*»**»** 



1.3. 1.8. 8.0 



INFORMATION RESOURCE DICTIONARY SYSTEM 
QUERY MENU 
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3) RETURN TO PREVIOUS MENU 

ENTER YOUR CHOICE (1-3) FROM ABOVE: 2 



*********************************************************************** 



Figure 4.40 Relationship Selection Menu 
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being accepted by the system (Figure 4.39). The system next prompts 
the user for the relationship- type that is the verb of the query. 
Finally the system request the entity-type which acts as the object 
to form the query (Figures 4.40 and 4.41). When the final form of the 
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Figure 4.41 Entity-2 Selection Menu 

query has been specified the system process the query, requests the 
selection of an output medium for the query results, and then generates 
the output (See Figure 4.42 thru 4.43). 

H. SCHEMA MAINTENANCE 

Even though the Core IRDS Standard Schema limits entity and re- 
lationship meta-data (See Appendix A), it allows for extensibility in 
that additional attributes may be added by the user. The schema main- 
tenance facility of the IRDS prototype allows an authorized (authorization 
is determined through the security function) user to add new attributes 
and modify or delete existing ones. Note: That although the prototype 
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Figure 4.42 Output Selection Panel 
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Figure 4.43 Query Result Panel 



./ 
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allows for the addition of entity and relationship relations 
the panel structure would require modification to make full use of any 
relations that were added. When the user selects the schema maintenance 
option from the main menu (See Figure 4.10), the system activates the 
schema maintenance module and displays a panel requesting that the user 
choose which type of schema is to be modified (Figure 4.44) . 



ft********************************************************************** 



* * 

* 1.4. 0.8. 0.0 | 

* INFORMATION RESOURCE DICTIONARY SYSTEM * 

* * 

* SCHEM MAINTENANCE MENU * 

* * 
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*********************************************************************** 



Figure 4.44 Schema Maintenance Selection Panel 



The user will then be allowed to identify particular entity or relation- 
ship type and perform maintenance. The following sections describe how 
the IRDS prototype performs the schema maintenance functions of the IRDS 
prototype . 

1 . Entity Meta-data 

When the authorized user indicates that he desires to add, modif 



or delete meta-data associated with the entity type scema, the system 



presents a panel requesting that the user choose which entity he desires 



to maintain (Figure 4.45). 



********o***********#*o#**o***************************************** 

* 

1.4. 1.0. 8.0 



INFORMATION RESOURCE DICTIONARY SYSTEM 
ADD, MODIFY OR DELETE ENTITY SCHEMA 
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**************************************************M*4nntttMtMMtM 



Figure 4.45 Delete Entity Schema Maintenance Panel 



a. Adding, Modifying or Deleting Entity Meta-data 

After the user identifies which entity-type is to be main- 
tained, the system retrieves the schema structure, displays it, and al- 
lows the authorized user to perform the desired maintenance (See Figure 
4.46) . 

2 . Relationship Meta-data 

When the authorized user indicates that he desires to add, modify, 
or delete meta-data associated with the entity-type schema, the system 
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presents a panel requesting that the user choose which entity he desires 
to maintain (Figure 4.47). 

a. Adding, Modifying or Deleting Relationship 

After the user has identified which relationship-type is to 
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Figure 4.46 Entity Schema Maintenance Panel 



maintained, the system retrieves the schema structure, displays it, and 
allows the authorized user to perform the desired maintenance (Figure 
4.48) . 

I. FINAL COMMENTS 

Although this prototype IRDS does not possess all of the features 
that were described in Chapter 3, it does demonstrate that a relational 
DBMS-dependent implementaion of the NBS IRDS is feasible as demonstrated 
by the prototype. The extensibility feature described in the standard 
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Figure 4.47 Relationship Selection Panel 
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Figure 4.48 Relationship Schema Maintenance Panel 
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is enhanced because of the inherent flexibility of the relational 
environment. Finally the NBS standards provide a firm foundation from 
which to consider dictionary system implementation. 
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V. CONCLUSION 



This thesis has discussed and evaluated the value of data as a 
corporate asset and how Data Base Management Systems (DBMS) can be 
used to manipulate this corporate asset. It has described how the concern 
over corporate data has led to the development and increased use of 
Relational Data Bases and in particular Data Dictionaries (DD) . Desirable 
DBMS and DD characteristics, capabilities and features were identified 
and discussed. Two existing relational DBMS were evaluated concerning 
the data dictionary features they provided. The result of that evaluation 
was that relational systems lack a majority of those dictionary features 
deemed necessary and desirable. Further, all existing DD products were 
developed. 

This thesis then presented, described and discussed the National 
Bureau of Standards (NBS) Information Resource Dictionary System (IRDS) 
standard. The standard provides a synthesis of baseline features, capa- 
bilities and functions found in existing DD systems plus the additional 
capabilities of being able to handle all three major types of data base 
organization: hierarchical, network and relational. Of equal signifi- 

cance, it offers the flexibility for user to expand the diction-ary schema 
to accomodate unique requirements. 

This thesis developed a relational model of the NBS IRDS which was 
implemented as a prototype using a personal computer and dBase III. The 
prototype demonstrates that the features presented as part of the NBS IRDS 
are implementable and usable in a relational environment. 
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It is recommended that the IRDS prototype undergo additional develop- 
ment with the goal of implementing an operational production version of the 
NBS IRDS standard. 
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APPENDIX A 

CORE STANDARD SCHEMA 



This appendix describes the Core System-Standard Schema 
and its structural characteristics. The Core 
System-Standard Schema is defined as that specific set ot 
en t i ty-types , r e 1 a t i ons-typ es , at tr i bu te-types , and other 
schema descriptors supported by the Core Standard I RDS . 
While this Core System-Standard Schema satisfies the 
requirements of many IRDS environments, an organization can 
customize its IRDS Schema using the Schema Extensibility 
Facility discussed in previous chapters. 

A . 1 ATTRIBUTE-TYPES AND ENTITY -TYPES 

In this section, the attribute-types and 
at tr i bu te-group-types associated with each entity-type are 
given. The following are the en t i ty-types in the Core 
System-Standard Schema: 



* USER 

* SYSTEM 

* PROGRAM 

* MODULE 

* FILE 

* DOCUMENT 

* RECORD 

* ELEMENT 

* BIT-STRING 

* CHARACTER-STRING 

* FIXED-POINT 

* FLOAT 

The other entity-types found in the Core System-Standard 
Schema are: 

* DICTIONARY-USER, in support of the Security Facility. 

* UIEW which supports the Secutity and View Facilities. 

The following two tables present the at tr i bu tes-types 
and at tr i bu te-group-types accociated with the non-secuti ry 
related enti ty-types listed above. At tr i bu te-group-types 
can be identified by the existence of their component 
attribute-types, which are indented and immediatedly follow 
the at tr i bu te -group -type rame. At the intersection of a row 
and column, the following denote that an entity of the given 
type : 

S Can have no more than a single attribute of the 
given type . 
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p 



Can have multiple attributes of the given type. 



The first table shows the attribute-types accociated 
with the following entity- types: 

* USER < USR> 

* SYSTEM (SYS) 

* PROGRAM (PGM) 

* MODULE (MDL) 

* FILE (FIL) 

* DOCUMNET (DOC) 

* RECORD (REC) 

* ELEMENT (ELE) 

(ATTRIBUTE-GROUP-TYPE) ENTITY -TYPE 

AND 

ATTRIBUTE-TYPE USR SYS PGM MDL FIL DOC REC ELE 



ADDED-BY 



S S S S S S 



(ALLOWABLE-RANGE) 

LOW-OF-RANGE 

HIGH-OF-RANGE 

ALLOWABLE-VALUE 

CLASSIFICATION 

CODE-LIST-LOCATION 

COMMENTS 

DATA-CLASS 

DATE-ADDED 

DESCRIPTION 



P 



P 

P 

P P 
P 



S S S S S S S S 

s S S S S S S s 



DOCUMENT-CATEGORY 5 

(DURATION) S S S 

DURAT I ON-VALUE 
DURATION-TYPE 

(IDENTIFICATION-NAME) p P P P P P P P 

ALTERNATE -NAME 
A LT E RN AT E -NAM E - C ONT EXT 

LAST-MODI FI CATION-DATE SSSSSSSS 

LAST -MODI FI ED-BY SSSSSSSS 
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LOCATION 

NUMBER-OF-LINES-OF-CODE 

NUMBER-OF-MODI FI CATIONS 

NUMBER-OF-RECORDS 

RECORD-CATEGORY 

SECURITY 

SYSTEM 



P 



P 



S 



P 

S 

5 



P 

S 

S 



P 

S 

s 



p 



C; 



S 

ssssssss 

s 



A. 2 RELATIONSHIP-CLASS-TYPES AND RTELATONSHI P -TYPE S' 

This section presents the re 1 a t i onsh i p-c 1 ass- types end 
relationship-types in the Core System-Standard Schema. The 
relationship-class-types, where they exist, are provided in 
bold print as headers to the relationship-types to which 
they apply. The inverse-name (which a lows the specification 
of the member en t i ty-tyupes in reverse order) and 
abbreviated inverse-name are given for each 

relationship-class-type, so the inverse-name and abbreviared 
inverse-name for each relationship-type may be inferred. 
Where no re 1 at i onsh i p-c 1 ass- type applies to a particular 
relationship-type, its inverse-name and abbreviated 
inverse-name are given directly. 

(ATTRIBUTE-GROUP-TYPE) 

AND ABBREVIATED 

ATTRIBUTE-TYPE ABBREVIATE IWERSE-NAME INVERSE-WME 



CONTAINS 

SYSTEM-CCNTAINS-SYSTEM 

SYSTEM-CONTAINS-PROGRAM 

SYSTEM-CONTAINS -MODULE 

PROGRAM-CQNTAINS-PROGRAM 

PROGRAM-CONTAINS-MODULE 

MODULE-CONTAINS-MODULE 

FI LE-CONTAINS-FI LE 

FILE-CONTAINS-DOCUMENT 

FI LE-CONTAINS-RECORD 

FILE-CONTAINS-ELEMENT 

DOCUMENT-CONTA INS-DOCEENT 

DOCUMENT-CONTAINS-RECORD 

DOCUMENT-CONTAINS-ELEMENT 

RECORD-CONTAINS-RECORD 

RECORD-CCNTAINS-ELEMENT 



CE CCNTAINED-IN CE-IN 

SYS-CE-SYS 
SYS-CE-PE 
SYS-CE-MDL 
PE-CE-PE 
PE-CE-MDL 
MDL-CE-MDL 
FIL-CE-FIL 
FIL-CE-DOC 
FIL-CE-REC 
FIL-CE-ELE 
DOC-CE-DOC 
DOC-CE-REC 
DOC-CE-ELE 
REC-CE-REC 
REC-CE-ELE 
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ELEMENT-CONTAINS-ELEMENT ELE-CON-ELE 



PROCESSES 

USER-PROCESSES-FILE 

USER-PROCESSES-DOCUMENT 

USER-PROCESSES-RECORD 

USER-PROCESSES-ELEMENT 

SYSTEM-PROCESSES-FILE 

SYSTEM-PROCESSES-DOCUMENT 

SYSTEM-PROCESSES-RECORD 

SYSTEM-PROCESSES-ELEMENT 

PROGRAM-PROCESSES-FI LE 

PROGRAM-PROCESSES-DOCUMENT 

PROGRAM-PROCESSES-RECORD 

PROGRAM-PROCESSES-ELEMENT 

MODULE-PROCESSES-FILE 

MGDULE-PROCESSES-DOCLMENT 

MODULE-PROCESSES-RECORD 

MODULE-PROCESSES-ELEMENT 



PR PROCESSED-BY 

USREC— PR— FI LI L 
USR-PR-DOC 
USR-PR-REC 
USR-PR-ELE 
SYS-PR-FIL 
SYS-PR-DOC 
SYS-PR-REC 
SYS-PR-ELE 
PGM— PR-FI L 
PGM-PR-DOC 
PGM-PR-REC 
PGM-PR-ELE 
MDL-PR-FIL 
MDL-PR-DOC 
MDL-PR-REC 
MDL-PR-ELE 



RESPONSIBLE-FOR 
USER-RESPONSIBILE-FOR-SYSTEM 
USER-RESPONSI BLE-FOR-PROGRAM 
USER-RESPGNSI BLE-FOR-MODULE 
USER-RESPONSI BLE-FOR-RECORD 
USER-RESPGNSI BLE-FOR-DOCUMENT 
USER-RESPONSI BLE-FOR-RECORD 
USER-RESPONSI 8LE-F0R-ELEMENT 

RUNS 

USER-RUNS-SYSTEM 

USER-RUNS-PROGRAM 

USER-RUNS-MODULE 

GOES-TO 

SYSTEM-GOES-TO-SYSTEM 

PROGRAM-GOES-TO-PROGRAM 

HODULE-GOES-TO-MODULE 

DERIVED-FROM 

DOCUMENT-DERI VED-FR01-F I LE 
DOCUMENT-DER I VED-FROM-DOCUMENT 
DOCUMENT -DERIMED-FROM-RECORD 
ELEMENT-DERIVED-FROM-FILE 
ELEMENT-DER I VED-FROM-DOCUMENT 
ELEMENT-DERIVED-FROM-RECORD 
ELEMENT-DERIVED-FROM-ELEMENT 
FI LE-DERIVED-FROM-DOCUMENT 
F I LE-DER I VED-FRGM-FI LE 
RECORD-DERIVED-FRCM-DOCUMENT 
RECORD-DERIVED-FROM-FILE 



R-FOR RESPONSIBILITY-OF 
USR-R-FOR-SYS 
USR-R-FOR-PGM 
USR-R-FOR-MDL 
USR-R-FOR-REC 
USR-R-FOR-DOC 
USR-R-FOR-REC 
USR-R-FOR-ELE 

RUNS 

USR-RUN-SYS 
USR-RUN-PGM 
USR-RUNS-MDL 

TO 

SYS-TO-SYS 
PGM-TO-PGM 
MDL-TO-MDL 

D-FR 

DOC-D-FR-FIL 
DOC-D-FR-DOC 
DOC-D-FR-REC 
ELE-D-FR-FIL 
ELE-D-FR-DOC 
ELE-D-FR-REC 
ELE-D-FR-ELE 
FIL-D-FR-DOC 
FIL-D-FR-FIL 
REC-D-FR-DOC 
REC-D-FR-FIL 



RUN-BY 



CCMES-FROM 



PRODUCES 



PR-BY 



R-OF 



RUN-BY 



FR 



PRD 
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RECORD-DERIVED-FROM-RECORD REC-D-FR-REC 



CALLS 

PROGRAM-CALLS-PROGRAM 

PROGRAM-CALLS-MODULE 

MODULE-CALLS-MODULE 



CLS CALLED-BY aD-BY 

PGM-CLS-PGM 
PGM-CLS-MDL 
MDL-CLS-HDL 



REPRESBfTED-AS 

ELEMENT-REPRESENTED-AS 

-BIT-STRING 

ELEMENT-REPRESENTED-AS 

-CHARACTER-STRING 

ELEMENT-REPRESENTED-AS 

-FIXED-POINT 

ELEMENT-REPRESENTED-AS 

-FLOAT 



AS REPRESENTS REP 

ELE-AS-BIT 

ELE-AS-CHR 

ELE-AS-FIX 

ELE-AS-FLO 



ELEMENT-STANDARD-FOR-ELEMENT ELE-ST-FOR-ELE 

(Inverse is: ELEMENT-STANDARD-OF-ELEMENT ELE-ST-OF-ELE) 



FILE-HAS-SORT-KEY-ELEMENT FI L-H-S-K-ELE 

(Inverse is: ELEMENT-SORT-KEY-OF-FILE ELE-S-K-OF-FIL) 

FI LE-HAS-ACCESS-KEY -ELEMENT FI L-H-A-K-ELE 

(Inverse is: ELEMENT-ACCESS-KEY-OF-FILE ELE-A-K-OF-FIL) 

A. 3 ENTITY -TYPES AND RELATIONSHIP-TYPES 

The following two tables depict the entity- types 
p articulating as members of the non-security related 
relationship-types in the Core System-Standard Schema, 
following notation in to denote that the entity- type i 

1 The first member of the relationship-type. 

2 The second member of the relationship-type. 

R Both the first and second member of the 
re 1 at i on sh i p - 1 yp e 

The first table shows the relationship-types 
associated with the following entity-types: 



* USER 

* SYSTEM 

* PROGRAM 

* MODULE 

* FILE 

* DOCUMENT 

* RECORD 

* ELEMENT 



The 
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RELATIONSHIP-CLASS-TYPE 

WD 

RELATIONSHIP-TYPE 



USR SYS PGM MDL FIL DOC REC ELE 



CONTAINS 

SYSTEM-CONTAINS-SYSTEM 

SYSTEM-CONTAINS-PROGRAM 

SYSTEM-CONTAINS-MODULE 

PR06RAM-CONTAI NS-PROGRAM 

PROGRAM-CONTAINS-MODULE 

MODULE-CONTAINS-MODULE 

FILE-CONTAINS-FILE 

FI LE-CONTAINS-DOCUMENT 

FILE-CONTAINS-RECORD 

FILE-CONTAINS-ELEMENT 

DOCUMENT-CONTAI NS-DOCIMENT 

DOCUMENT-CONTAINS-RECORD 

DOCLMENT-CONTAINS-ELEMENT 

RECORD-CONTA INS-RECORD 

RECORD-CCNTAINS-ELEMENT 

ELEMENT-CONTA INS-ELEMENT 



R 

1 2 
1 

R 

1 



2 

• ■ 

2 

R 

R 

1 

1 

1 



2 

2 

R 

1 2 
1 

R 

1 



2 

2 

R 



PROCESSES 

USER-PROCESSES-FILE 

USER-PROCESSES-DOCUMENT 

USER-PROCESSES-RECORD 

USER-PROCESSES-ELEMENT 

SYSTEM-PROCESSES-FILE 

SYSTEM-PROCESSES-DOCUMENT 

SYSTEM-PROCESSES-RECORD 

SYSTEM-PROCESSES-ELEMENT 

PROGRAM-PROCESSES-F I LE 

PROGRAM-PROCESSES-DOCUMENT 

MODULE-PROCESSES-RECORD 

PROGRAM-PROCESSES-ELEMENT 

MODULE-PROCESSES-FILE 

MODULE-PROCESSES-DOCUMENT 

MODULE-PROCESSES-RECORD 

MODULE-PROCESSES-ELEMENT 



1 

1 

1 

1 



1 

1 

1 

1 



1 

1 

1 

1 







2 



2 



1 2 
1 
1 
1 



2 



2 



RESPONSIBLE-FOR 

USER-RESPCNSIBILE-FOR-SYSTEM 1 
USER-RESPONSIBLE-FOR-PROGRAM 1 
USER-RESPCNS I BLE-F OR-MODULE 1 
USER-RESPONS I BLE-FOR-RECORD 1 
USER-RESPONSIBLE-FOR-DOCUMENT 1 
USER-RESPONS I BLE-FOR-RECORD 1 
USER-RESPONSIBLE-FOR-ELEMENT 1 




2 
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ro 



RIMS 

USER-RIMS-SYSTEM 1 
USER-RUNS-PROGRAM 1 
USER-RIMS-MODULE 1 



GOES-TO 

SYSTEM-GOES-TO-SYSTEM 

PROGRAM-GOES-TO-PROGRAM 

MODULE-GOES-TO-MODULE 



DERIVED-FROM 

DOCUMENT-DERIVEO-FROM-FI LE 

DOCIMENT-DERIVED-FROM-DOCUMENT 

DGCIMENT-DER I VED-FRCM-RECORD 

ELEMENT-DERIVED-FROM-FILE 

ELEMENT-DERIVED-FRCM-DOCLMENT 

ELEMENT-DERIVED-FROM-RECORD 

ELEMENT -DERIL'ED-FRCM-ELEMENT 

FILE-OERI^EO-FROM-OOCLMENT 

FILE-DERIVED-FROM-FILE 

RECORD-DERIVED-FROM-DOCUMENT 

RECORD-DERIVED-FR0H-FILE 

RECORD-DERIVED-FROM-RECORD 



R 

1 2 
2 1 
R 
1 



2 



2 



• • 



2 

1 

1 

R 



1 

1 



R 



CALLS 

PROGRAM-CALLS-PROGRAM 

PROGRAM-CALLS-MODULE 

MODULE-CALLS-MOOULE 



2 

R 



ELEMENT-STANDARD-FOR-ELEMENT 



R 



FILE-HAS-SORT-KEY-ELEMENT 



FILE-HAS-ACCESS-KEY-ELEMENT .... 1 

The last three relationship-types are not members of a 
rel at i onsh i p-cl ass, and so are listed separetl. 



The second table shows the relationship-types 
associated with the following entity-types: 

* ELEMENT 

* BIT-STRING 

* CHARACTER-STRING 

* FIXED-POINT 

* FLOAT 



RELATIONSHIP-CLASS-TYPE 

AMO 

RELATI CMSHI P-TYPE 
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ELE BIT CHR FIX FLO 



ro 



REPRESENTED-AS 

ElEMENT-REPRESENTED-AS-BIT-STRING 

ELEHENT-REPRESENTED-AS-CHARACTER-STRING 

ELEMENT-REPRESENTED-AS-FIXED-POINT 

ELEMENT-REPRESENTED-AS-FLOAT 



12 ... 
1 . 2 .. 
1 . . 2 

1 . . . 2 



A. 4 ATTRIBUTE-TYPES AND RELATIONSHIP-TYPES 

The -following are the attribute-types assicociated with 
the relationship-class-types and re 1 at i onsh i p-types in the 
Core System-Standard Schema: 

* The re 1 at i onsh i p-types 

- SYSTEM-PROCESSES-FILE 

- PROGRAM-PROCESSES-FILE 

- MODULE-PROCESSES-FILE 

have the single-valued at tr i bu te-type ACCESS-METHOD 
associated with them. 

* All PROCESSES and RUNS re 1 at i onsh i p-types have the 

single -valued at tr i bu te-typw FREQUENCT associated 
with them . 

* The r e 1 a t i onsh i p - 1 ype RECORDS -CONTA I NS-ELEMENT h as t h e 

single-valued attribute-type RELATI VE-POSITI ON 
assoc iatedwith it. 

* The rel at i onsh i p-type ELEMENT-REPRESENTED-AS-BIT- 

STP.ING has the single-valued at tr i bu te -type LENGTH 
and the multiple-valued at tr i bu te-type USAGE 
assoc iated the it. 

* The relationship-type ELEMENT-REPRESENTED-AS- 

CHARACTER-STRING has the single-valued 
attribute— types LENGTH and JUSTIFICATION and the 
mu 1 t i p 1 e— val ued at tr i bu te — type USAGE associated with 
i t . 

* The re 1 at i onsh i p-types 

- ELEMENT -REPRESENT ED -AS -FIXED-POINT 

- ELEMENT-REPRESENTED-AS-FLOAT 

have the single -valued attribute-types LENGTH, 
PRECISION, arid SCALE, and the multiple-valued 
at tr i bu te-type USAGE associated with them. 



A. 5 SUPPORT FOR THE CORE SECURITY FACILITY 

In addition to the entity-types DICTIONARY-USER and 
VIEW the Core System-Standard Schema also contains the 
r e 1 a t i on sh i p — t y p e DI CTI ONARY— USER— HAS— VI EW , which assiciates 
a I RDS user with the views he/she may use. A number o-f 
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at tr i bu tes-types and at tr i bu te-group-type s in the Core 
System-Standard schema are used to specify the categories of 
permissions that can be assigned to a I RDS user with a 
par t i cu 1 ar view. 



A. 6 THE ATTR I BUTE-TYPE-CAL I DAT I ON-PROCEDURE META ENTITIES 
The Core System-Standard Schema contains the -following 
two at tr i bu te-type-val i da t i on -procedure meta-entities: 

* RANGE-CALI DAT I ON , used to restrict the attributes o-f a 

given at tr i bu te-type to a predefined set of ranges. 

* CALUE-CALI DATI ON , used to restrict the attributes of a 

given at tr i bu te-type to a predefined set of values. 

A.? THE ATTRI BUTE -TYPE -CAL I DATI ON -DATA META-ENTITIES 

There are no attribute-type-validation-data 
meta-entities specified in the Core System-Standard Schema. 
To use this feature, an organization must define and add 
these meta-entities to the schema. 



A. 8 THE LIFE-CYCLE-PHASE META-ENTITIES 

The Core System-Standard Schema contains four 
Life-Cycle-Phase meta-entities. These are: 

* UNCONTROLLED-PHASE - Entities are in this 

1 i fe-cyc 1 e-phase when they are added to the IRD. 

* CONTROLLED-PHASE - Entities used in an operational 

environment, for which structural integrity controls 
are provided by the I RDS, are in this 
1 i fe-cyc 1 e-phase . 

* ARCHI CED-PHASE - This life-cycle-phase is used to 

document those entities no longer in use. 

* SECURITY-PHASE - This life-cycle-phase, of phase class 

UNCONTROLLED is used for DICTIONARY-USER entities 
associated with the Security Facility of the Core 
Standard I RDS . 



A.? THE QUALITY- INDICATOR META- INTIT I ES 

The Core System-Standard Schema does not contain any 
pre-defined QUALITY-INDI CATOR meta-entities. These 
meta-entities may be defined by an organization. 



A. 10 THE CAR I AT I ON-NAMES META-ENTITIES 

There are also no pre-defined CAR I ATI ON-NAMES 
meta-entities in the Core System-Standard Schema. These 
meta-entities may be defined by an organization. 
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A. 11 THE SCHEMA-DEFAULTS META-ENTITIES 

There is one SCHEMA-DEFAULTS meta-entity in 
System-Standard Schema. This meta-entity, called 
EX I STING-SCHEMA-DEFAULTS, is used to establish mi 
maximum name lengths and minimum and maximum attr 
lengths in I RD . 



the Core 

n i mum and 
i bu te 
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APPENDIX B 

COMMAND SPECIFICATIONS 

SYNTAX : 

All words shown in captials are required. 

[ 3 = Optional 

<) = user suppl i ed 

O = May be repeated as required 

1 . Schema Commands 

1.1 Schema Maintenance 

* Add Meta-Entity Command 

ADD META-ENTITY <Me ta-en t i ty-name > 

META-ENTITY-TYPE = <Me ta-en t i ty-type > 

WITH META-ATTRIBUTES 

[ ( <Me ta-at tr i bu te-name > = {Initial value)}]; 

* Modi-fy Meta-Entity Command 

MODIFY META-ENTITY {Meta-entity-name) 

WITH META-ATTRIBUTES 

{<Meta-attr i bute-name) = <new value)}; 



* Delete Meta-Entity Command 

DELETE META-ENTITY <Me ta-en t i ty-name > ; 



* Add Meta-Relationship Command 

ADD META-RELATIONSHIP 

FROM <Me ta-en t i ty-name-1 > TO <Me ta-en t i ty-name-2) 
WITH META-ATTRIBUTES 

[ \<Me ta-at tr i bute-name) = < value)}]; 

* Modi-fy Meta-Relationship Command 



MODIFY META-RELATIONSHIP 

FROM <Me ta-en t i ty-name-1 ) TO <Meta-ent i ty-name-2) 
WITH META-ATTRIBUTES 

{ <Me ta-at tr i bute-name ) = <value>} 

C <Meta-ent i ty-name-1 > = <Me t a-en t i ty-name ) ] 

[ <Meta-ent i ty-name-2) = <Meta-ent i ty-name)] 

[ <<Me ta-at tr i bute-name) = <New-val ue ) } ] ; 



* Delete Meta-Relationship Command 
DELETE META-RELATIONSHIP 

FROM <Me ta-en t i t'/-name-l ) TO <Meta-ent i ty-name-2) 
WITH META-ATTRIBUTES 

[ {<Meta-attr i bute-name) = {value))]; 
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* Replace Meta-Relationship Command 



REPLACE META-RELATIONSHIP 

FROM <Meta-en t i ty-name-1 > TO <Me ta-en t i ty-name-2) 
WITH META-ATTRIBUTES 

[ {<Meta-attr i bute-name-1 > = <va1ue>)3 
BY FROM <Meta-ent i ty-name-1 > TO <Meta-ent i ty-name-3> 
WITH META-ATTRIBUTES 

[ (<Meta-at tr i bute-name-2> = <value))]; 

* Modi-fy Meta-Entity Name Command 

MOD I FY META-ENT I TY-NAME 

FROM <Meta-ent i ty-name-1 > TO <Meta-ent i ty-name-2> : 

* Install Meta-Entity Command 

INSTALL <Meta-ent i ty-name> ; 

1.2 Schema Output Command 

* OUTPUT SCHEMA 

SELECT [ALL] or [ <meta-ent i ty-name-1 i st>] 

[WHERE <restr i c t i on-express i on> boolean operator 
<restrict ion -expression)] 

[ <T i t 1 e> ] 

[ SHOW ALL] or 

[ SHOW ALL META-ATTRIBUTES or 
<Me ta-at tr i bute-1 i st >] and/or 
[ SHOW ALL META-RELATIONSHIPS or 
<Meta-rel at i onsh i ps-1 i st>] and/or 
[ROUTE TO <Dest i nat i on-1 i st > ] ; 

2. Dictionary Commands 

2.1 Di ct i onary Mai ntenance Commands 

* Add Entity Command 

ADD ENTITY <en t i ty-name ) 

ENTITY -TYPE = <en t i ty-type> 

WITH ATTRIBUTES 

[ { <at tr i bute-name) = < I n i t i a 1 value))]; 

* Modi-fy Entity Command 

MODIFY ENTITY <en t i ty-name ) 

[ { <at tr i bu te-name) = <New value))]; 
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* Delete Entity Command 



DELETE ENTITY 

[ <Ent i ty-name>] or 

[USING = <En t i ty-1 i st-name > I or 

[USING PROCEDURE = <Procedure-name > I or 

[SELECT WHERE <restr i c t i on-express i on ) boolean 

operator <restriction-expression>] 



* Add Relationship Command 



ADD RELATIONSHIP 

<En t i ty-name-1 > <Re 1 at i onsh i p-type > <Ent i ty-name-2> 
WITH ATTRIBUTES 

[ {<attr i bute-name> = < I n i t i a 1 value))!; 

* Modify Relationship Command 



MODIFY RELATIONSHIP 

<Ent i ty-name-1 > <Re 1 at i onsh i p-type > <En t i ty-name-2> 
[ [<attr i bute-name) = <New value))!; 

* Delete Relationship Command 



MODIFY RELATIONSHIP 

[ <Ent i ty-name-1 > <Re 1 at i onsh i p-type ) <En t i ty-name-2 
[ <Re 1 at i onsh i p-1 i st-name)! ; 

* Modify Access-Name Command 



MODIFY ACCESS-NAME 

• <Current access-name) TO <New access-name); 

* Modify Descriptive-Name Command 

MODIFY DESCRIPTIVE-NAME 

<Current descriptive-name) TO <New descriptive-name 

* Modify Entity Life-Cycle-Phase Command 

MODIFY ENTITY LIFE-CYCLE-PHASE 

FOR <Ent i ty-name) or <En t i ty-1 i st-name) 

FROM <Current life-cycle-phase) TO <New life-cycle- 
phase) ; 

* Copy Entity Command 

COPY ENTITY <En t i ty-name > 

[WITH RELATIONSHIPS! 

TO <New entity-name) 

[DESCRIPTIVE-NAME = <Descr i p t i ve-n ame ) I 
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[QUALITY = <Qual i ty- i nd i cator > I ; 



2.2 Dictionary Output Commands 

* General Output Command 

OUTPUT DICTIONARY 
[USING VIEW = ALL] 

[USING VIEW = -(view-name) or <v i ew-name-1 i st>J 
SELECT [ALL] or 
[ENTITIES] 

<restricti on -expression) 

<boolean operator) 

<restricti on -express ion) 

[SORT SEQUENCE = <sor t-parm-1 i st ) ] 

SHOW <show-opt i ons) 

[SHOW <T i tie) 

[ROUTE TO <dest i nat i on-1 i st)] 

[PROCEDURE-NAME = <procedure-name ) : 

* Output Impac t-o-f-Change Command 

OUTPUT IMPACT 

[USING VIEW = ALL] 

[USING VIEW = <view-name) or <v i ew-name-1 i st)] 
SELECT [ALL] or 
[ENTITIES] 

<restriction-expression) 

<boolean operator) 

<restr i ct i on-express i on) 

[SORT SEQUENCE = <sor t-parm-1 i st)] 

SHOW <show-opt i ons) 

[SHOW CTitle) 

[SHOW LIFE-CYCLE-PHASE] 

[ SHOW QUALITY-INDICATOR] 

[SHOW ATTRIBUTES [ALL] or [NO] or 
[ <at tr i bu te-name) ] ] 

[SHOW DESCRIPTIVE-NAME] 

[ROUTE TO <dest i nat i on-1 i st>] 

[PROCEDURE-NAME = <procedure-name)] ; 

* Output Syntax Commands 

OUTPUT SYNTAX 

[USING VIEW = ALL] 

[USING VIEW - <view-name) or <v i ew-name-1 i st>] 
SELECT [ALL] or 
[ENTITIES] 

-(restrict ion -expression) 

<boolean operator) 

<restricti on -express ion) 

[SORT SEQUENCE = <sort-parm-l i st>] 
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SHOW <show-opt i ons> 

[SHOW <T i 1 1 e > ] 

[SHOW LIFE-CYCLE-PHASE] 

[SHOW QUALITY-INDICATOR] 

[SHOW RELATIONSHIP <re1 at ionsh i p-di spl ay-opt i ons)] 
[SHOW RELATIONSHIP SYNTAX FOR EACH <en t i ty-name > ] 
[ROUTE TO < destination -list)] 

[PROCEDURE-NAME = <procedure-name>] ; 

2.3 Dictionary Entity-List Commands 

* Build Entity-List Command 

BUILD ENTITY-LIST 
SELECT [ALL] or 
[ENTITIES] 

<restricti on -expression) 

<boolean operator) 

<restricti on -expression) 

[LIST -NAME = <ent i ty-1 i st-name)] 

[USING VIEW = ALL] 

[USING VIEW = <view-name) or <v i ew-name-1 i st)] 
[PROCEDURE-NAME = <procedure-name ) ] 
[PROCEDURE-DESCRIPTION = <shor t-str i ng-1 i teral ) ] ; 

* Entity-List Union Command 

UNION 

<existing entity-list-name), 

{<existing ent i ty-1 i st-name)) 

= <new entity-list-name); 

* Entity-List Intersection Command 

INTERSECTION 

<existing entity-list-name), 

<<existing ent i ty-1 i st-name)) 

= <new entity-list-name); 

* Entity-List Difference Command 

DIFFERENCE 

<ent i ty-1 i st-l-name) ,< ent i ty-1 i st -2-name) 

= <new entity-list-name); 

* Entity-List Subtraction Command 

SUBTRACTION 

<en t i ty-1 i st-l-name ) , <en t i ty-1 i st-2-name) 

= <new entity-list-name); 
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Name Current Entity-List Command 



NAME CURRENT ENTITY-LIST <ent i ty-1 i st-name> ; 

* Output Entity-List Command 

OUTPUT ENTITY-LIST 

[ LI ST -NAME = <enti ty-1 ist-name>] 

[SHOW <T i 1 1 e > I 

[ROUTE TO <dest i nat i on-1 i st>] ; 

* Output Entity-List Names Command 

OUTPUT ENTITY-LIST NAME 
[SHOW <T i 1 1 e > I 

[ROUTE TO <dest i nat ion-1 i st>] ; 

2.4 Dictionary Procedure Commands 

* Output Procedure Syntax command 

OUTPUT PROCEDURE SYNTAX 
ALL or <procedure-name > 

[SHOW <T i 1 1 e > ] 

[ROUTE TO <dest i nat i on-1 i st> ] ; 

* Output Procedure Names Command 

OUTPUT PROCEDURE-NAME 

[SHOW PROCEDURE-DESCRIPTION! 

[ROUTE TO destination-! ist>] ; 

* Run Output Procedure Command 

RUN OUTPUT PROCEDURE <procedure-name> 

[USING VIEW = ALL] 

[USING VIEW = <view-name> or <v i ew-name-1 i st > ] 
[ROUTE TO <dest inat ion-1 ist>] ; 

* Run Entity-List Procedure Command 

RUN ENTITY-LIST PROCEDURE <procedure-name > 

[LIST -NAME = <ent i ty-1 i st-name>] 

[USING VIEW = ALL] 

[USING VIEW = <view-name> or <v i ew-name-1 i st >] ; 

* Save Output Procedure Command 

SAVE OUTPUT PROCEDURE 

PROCEDURE-NAME = <pr ocedure-name > 
[PROCEDURE-DESCRIPTION = <shor t -str i ng-1 i t eral > ] ; 
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* Save Entity-List Procedure Command 

SAVE ENTITY-LIST PROCEDURE 

PROCEDURE-NAME = <proc edure-name > 
[PROCEDURE-DESCRIPTION = <short-str i ng-1 i teral >1 ; 

* Delete Procedure Command 

DELETE <procedure-type> PROCEDURE <procedure-name > ; 
3. General Commands 

3.1 IRD-IRD Inter-face Commands 

* Create Dictionary Command 

CREATE DICTIONARY <new-d i c t i onary-name > 

[LOCATION CLAUSE < imp 1 emen tor-def i ned> I 
SCHEMA IS 

[IN DICTIONARY <d i c t i onary-name > I 

[IN FILE <-f i 1 e-name >3 

[STANDARD] 

[LOAD DICTIONARY FROM <F i 1 e-name >] ; 

* Export Dictionary Command 

EXPORT DICTIONARY 
[USING VIEW = ALL] 

[USING VIEW = <view-name> or <v i ew-name-1 i st>] 
[USING ENTIPi'-LI ST= <Ent i ty-1 i st-name>] 

[EXCLUDE RELATIONSHIP OF [ <re 1 at i onsh i p-type > ] or 
[ <re 1 at i onsh i p-1 ist-name>]] 

[SCHEMA EXPORT FILE = <export-f i 1 e-name>] 

[SYNTAX = <shor t-str i ng-1 i teral >] : 

* Check Schema Compatibility Command 

CHECK SCHEMA 

[SOURCE] or [TARGET] SCHEMA IS 

[IN DICTIONARY <d i c t i onary-name) ] 

[IN FILE <-f i 1 e-name > ] 

[STANDARD] ; 

* import Dictionary Command 

IMPORT DICTIONARY 

SCHEMA EXPORT FILE = <expor t— f i 1 e-name> 

DICTIONARY EXPORT FILE = 

<di c t i onary-expor t--f i 1 e-name > 

[IN DICTIONARY <d i c t i onary-name > ] 

[IN FILE <-f i 1 e-name > ] 
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[STANDARD] 

LIFE-CYCLE-PHASE = < 1 i -f e-cyc 1 e-phase-name > 
3.2 Utility Commands 

* Set Session De-fault Command 

SET 

[VIEW = <view-name>] 

[MODE = <mode-type>] 

[SHOW ATTRIBUTES 

[ENCODED or DECODED]] 

[ {< impl ementor-de-f ined-opt ions)}] 

[SAVE]; 

* Session Status Command 

STATUS 

[ALL] 

[DICTIONARY] 

[ ENTITY-LIST] 

[MODE] 

[VIEWS] 

[PROFILES] 

[DEFAULTS] 

[ < impl ementor-de-f i ned-op t i ons>] ; 

* Help Command 

HELP 

[ALL] 

[ <command-imperat i ue-substr i ng> ] ; 

* Exit Dictionary System Command 

EXIT ; 

* Enter Panel Dialogue Command 

PANEL NAME = < pan el -name) ; 
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APPENDIX C 



BACHMAN DIAGRAMS 




Lj 




C 



PROGRAM 



U 



MODULE 



C 



DOCUMENT 



C 



FILE 



C 



RECORD 



C 



ELEMENT 
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APPENDIX D 

SUPPORT OF STANDARD DATA MODELS 



This appendix describes the new en t i ty-types , 
relationship-types and at tr i bur e— types which can be added to 
the I RD to allow the system to map into NDL and SQL data 
struc tur es . C Ref 9, pages 16-201 

D.l NETWORD MODEL MAPPINGS 

The following tables describe the mappings between the 
generic entity-types of the Core I RD and the Network Model 
entities and relationships. 





Network Data Model 


Mapping - Entity types 






NDL 


1 


IRD Generic Model 






Schema 


1 


Schema 






Subscema 


1 


Subscema 






Da t abase 


1 


Database 






Record 


1 


Record * 






Set 


1 


Set 


j 




Componen t 


1 


Element * 






Modu 1 e 


1 


Modu 1 e * 






Database Procedure 


1 


Program * 






Data Type 


1 

1 


El emen t * 





Ne twork Data Model Mappings - relationship-types 





NDL 


1 IRD Generic Model ++ 

_ 1 






Subschema in 


1 — 

1 Schema-Con ta i ns-Schema 






Schema i s 


1 Schema-Con ta i ns-Se t 
1 Schema-Con ta i ns-Record 






Owner i s 


1 Se t-Gwner-I s-Record 






Members are 


1 Se t-Member-I s-Record 






Con tai ns 


1 Record-Con ta i ns-El emen t 
1 El emen t-Con ta i ns-El emen t 






Identifier 


1 Se t-Has-Sor t-Key-El emen t 

1 Record-Redef i nes-Record 

1 








1 

1 Schema-Def i nes-Database 
1 El emen t-Assoc i ated-LI i th-El emen t 
1 





* Note - these are already defined in the Core IRDS 
Standard . 

+ + Note - these NDL relationships are in addition to those 
appearing in the IRDS Specifications in the Core IRDS. A 
relationship that is in the Core Standard doesnot appear 
here unless a different NDL relationship maps into it. 
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D . 2 RELATIONAL MODEL MAPPINGS 



The -following tables shows the mappings between the 
generic and Relational Model entities and relationships: 



Ne tworK Data Mode 1 Mapp i ng - Entity types 



SQL 



I RD Generic Mode 1 



Schema 
Table 
Co 1 umn 
Data Type 

Query & Operations 
(Join, Projection 



etc 



Schema 
Record * 
Element * 
El erne n t * 
Set 



Relational Data Model Mappings - Ke I at i onsh i p-typei 



SQL 

Submodel id tables 

is made up o-f Table 
i den t i f i ed by 

is made up o-f Columns 



IRD Generic Model ++ 



Schema-Con ta i ns-Schema 
Schema-Con t a i ns-Se t 
Schema-Con t a i ns-Rec or d 
Record-Has-Access-Key-El emen t 
El ement-Ident i f i es-El emen t 
Element-Identifies-Record 
Record-Con ta i ns-El emen t 

El emen t-Assoc i ated-kl i th-El emen t 



Note - these are already defined in the Core I RDS 
tandar d . 

++ Note - these SQL relationships are in addition to those 
appearing in the IRDS Specifications in the Core I RDS . A 
relationship that is in the Core Standard doesnot appear 
here unless a different NDL relationship maps into it. 
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D . 3 ENTITY -TYPES AND RELATI ONSHI P-TYPES 

The following table identify new and existing 
entity- types and gives their applicability to the SQL and 
NDL database models: 



App 1 i caab ility Matrix of Enti ty-Types 



New 


SCHEMA 1 DATABASE 1 RECORD 1 SET 1 ELEMENT 1 MODULE 1 PROGRAM 

1 1 1 | 1 | 

1 III II 


Enti ty 
type 


Y 1 


1 Y I 

1 1 


1 Y 1 
1 1 


1 1 
1 1 


SQL 
Mode 1 


i 

Y 

1 


I Y 1 Y 

1 1 


! 1 

I Y 1 
1 I 


I 1 

Y 1 1 

1 1 


NDL 
Mode 1 


Y 1 

1 


1 — I 

1 Y 1 Y 

1 1 

1 1 


” 1 1 

1 Y 1 
1 1 

1 1 


Y 1 Y 1 Y 

1 1 

1 1 



The following table identifies 
relationship-types and gives their 
and NDL database models: 



new and existing 
appl i caabi 1 i ty to the SQL 



Applicability Matrix of Relationship-Types 

IciT rce i raIT rrrT scsT scTT soiTs^T soiTil rT somil e i eae i scr 



• i • 



•i 



i 



New 



I 



I 



I 



I 



I 



Relat- 


I 


1 1 Y 1 Y 


1 Y 1 Y 


1 Y 1 Y 1 Y 1 Y 1 


Y 1 Y 1 Y 1 Y 


1 


i onsh i p 


1 


1 1 1 


I I 


1 1 1 1 1 


1 I I 


1 


-type 


1 


1 I 1 


1 1 


I 1 1 I 1 


1 1 1 


1 

i 


NDL 


| 


Y 1 Y 1 Y 1 Y 


1 Y 1 Y 


I Y I Y I Y 1 1 


Y i 1 Y 1 Y 


1 

1 


Mode 1 


1 


1 1 1 


1 1 


1 I I 1 1 


1 1 1 


1 

i 


SQL 


1 


1 Y 1 Y I 


1 Y 1 Y 


1 1 Y 1 1 Y 1 


Y 1 Y 1 Y 1 Y 


i 

1 


Mode 1 


1 

1 


1 1 1 
1 1 1 


1 1 

I 1 


1 1 1 I 1 

1 1 1 1 1 


1 1 1 

1 1 1 


1 

1 


DESCRIPTION LEGEND: 








ECE 




Re 1 at i onsh i 


p-Type 


" E 1 erne n t -Con tain s-E 1 erne n t " 




RCE 


= 


Re 1 at i onsh i 


p-Type 


" Record-Con ta i 


ns-El emen t " 




RAE 


= 


Re 1 at i onsh i 


p-T ype 


" Record-Has-Access-Key-El emen t " 


RRR 


= 


Re 1 at i onsh i 


p-Type 


" Record- Redef i nes-Record" 




SCS 


= 


Re 1 at i onsh i 


p-Type 


11 Schema-Con ta i ns-Schema" 




SCT 


= 


Re 1 at i onsh i 


p-Type 


" Schema-Con ta i ns-Se t " 




SOE 


= 


Re 1 at i onsh i 


p-Type 


" Se t-Has-Sor t- 


Key-El emen t " 




SMP. 


= 


Re 1 at i onsh i 


p-Type 


" Se t -Member -I s 


-Record" 




SOR 


= 


Re 1 at i onsh i 


p-Type 


" Se t -Owner- 1 s- 


Record" 




El R 


= 


Re 1 at i onsh i 


p-Type 


" El emen t-I den t i + i es-Recor d" 




SDD 


= 


Re 1 at i onsh i 


p-Type 


" Schema-Def i ne 


s-Dat abase " 




El E 


= 


Re 1 at i onsh i 


p-Type 


" El emen t-I dent i f i es-El ement 


. ii 
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EAE = Relationship-Type " E 1 emen t -Assoc i at ed-W i th 

-El emen t " 

SCR = Relationship-Type " Schema-Con ta i ns-Record" 

D . 4 ATTR I BUTE-TYPE ASSOC I AT I ONS 

The -following table depicts the association between 
at tr i bure-types and the entity-types to which they apply. 
The "common" at tr i but e- types de-fined as part of the Core 
Standard I RD apply as well. 



I Applicability Matrix of At tr i bu te -Types to Entity-Types 



At tr i bu te-T ype 


1 SCH 1 

| i 


1 DBA 1 


RCD 


1 SET! 

i | 


ELM 1 MDL 1 PGM 
| | 


LANGUAGE 

INITIAL-POPULATION 

RATE-OF-ARRIUALS 

RATE-OF-DEPARTURES 


1 I 

1 X 1 

1 1 

1 1 

1 1 


1 

! 1 

1 

1 1 

1 


X 

X 

X 

X 


1 1 
1 1 
1 1 
1 1 


1 1 

X 1 1 

1 1 

1 1 

1 1 


RATE-OF-ACCESS 

RATE-OF-UPDATE 


1 1 
1 1 


! 1 
1 


X 

X 


I 1 

1 1 


1 1 
1 1 


DEFAULT-CLAUSE 

USAGE 


1 1 

1 X 1 
1 1 


I 1 

X 1 
! 1 


X 


1 1 

1 X 1 
1 1 


X 1 1 

X 1 X 1 
1 1 



DESCRIPTION LEGEND: 



SCH 


= 


En t i ty-type 


"SCHEMA" 


DBS 


= 


En t i ty-type 


" DATABASE 


RCD 


= 


En t i ty-type 


"RECORD" 


SET 


= 


En t i ty-type 


"SET" 


ELM 


= 


En t i ty-type 


" ELEMENT" 


MDL 


= 


En t i ty-type 


"MODULE" 


PGM 


= 


Entity-type 


"PROGRAM" 
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The following table shows the at tr i bu te-types 
associated with relationship-types: 



Applicability Matrix of attribute-types to Relationship-Types 



Attr i bute-Type 



I SMR I RAE I EAE I SOE I SCS I SCT I SOR I RRR 



•I 



I 

I X 

X 



•I 



•I 



ACCESS-METHOD 

KEY-SELECT 

ORDER-CLAUSE 

INSERTION-MODE 

RETENTION -MODE 

ORDER 

DUPLICATES 

OCCURS-CLAUSE 

LANGUAGE 

USAGE 



I X I 
I X I 
I X 
I 

I X I 



I X I 
I 



X 



X 



X 



I X 

X I X 



DESCRIPTION LEGEND: 

SMR = Relationship-type " SET-MEMBER-I S-RECORD" 

RAE = Relationship-type " RECORD-SA -ACCESS-KEY-ELEMENT " 
EAE = Relationship-type " ELEMENT -ASSOC I ATI ON-W I TH 

-ELEMENT" 

SOE = Relationship-type " SET-HAS-SORT-KEY-ELEMENT" 

SCS = Relationship-type " SCHEMA-CONTA INS-SCHEMA" 

SCT = Re 1 at i onsh i p- type " SCHEMA-CONTAINS-SET" 

SOR = Relationship-type “ SET-OWNER-I S-RECORD" 

RRR = Relationship-type " RECORD-REDEFINES-RECORD" 
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APPENDIX E 

IRDS PROTOTYPE SOFTWARE 

* MAIN.PRG 

* MODULE NAME: MAIN 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : NONE 

* ROUTINES THAT THE MODULE CALLS : 1 . 1 . 0 . 0 . 0 . 0 , 1.2. 0.0. 0.0, 1.3. 0.0. 0.0, 

* 1.4. 0.0. 0.0, 1.5. 0.0. 0.0, 1.6. 0.0. 0.0 

* LOCAL VARIABLES USED: 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. 

* one-time: USED TO INSURE THAT THE ASSOCIATED ROUTINE IS RUN ONLY ONCE. 

* t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

* test : USED TO ALLOW THE USER TO TEST FOR CAPS LOCK DOWN. 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS PROGRAM STARTS THE INFORMATION RESOURCE DICTIONARY SYSTEM 

* IT ALLOW THE USER TO CHOOSE WHICH FUNCTION WITHIN THE SYSTEM 

* HE WOULD LIKE TO DO. 

* 



SET SAFETY OFF 
STORE .t. TO one_time 
DO WHILE one time 
CLEAR 

STORE ' 1 TO test 

@1,1 SAY "MAIN" 

@ 2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@ 11,31 SAY "PLEASE INSURE THAT YOU" 

@ 12,31 SAY "HAVE THE 1 CAPS LOCK 111 
@ 13,31 SAY "ON AS ALL ANSWERS TO" 

@ 14,31 SAY "QUESTIONS NEED TO BE" 

@ 15,31 SAY "IN UPPER CASE" 

@ 17,31 SAY "TEST HERE" 

@ 17,42 GET test 

@ 18,31 SAY "PRESS RETURN TO CONTINUE" 

READ 

STORE .f. TO one_time 
SAVE TO mem_var 
do while .t. 
clear 



@0,1 SAY " 
@1,22 SAY 
@3,36 SAY 
@6,22 SAY 
@8,22 SAY 
@ 10,22 SAY 
@ 12,22 SAY 
@ 14,22 SAY 
@ 16,22 SAY 
@ 17,22 SAY 
ACCEPT 1 
DO CASE 



MAIN" 

"INFORMATION RESOURCE DICTIONARY SYSTEM" 
"MAIN MENU" 

"1) DICTIONARY MAINTENANCE" 

"2) DICTIONARY OUTPUT" 

"3) DICTIONARY QUERY" 

"4) SCHEMA MAINTENANCE" 

"5) SCHEMA OUTPUT" 

"6) EXIT DICTIONARY SYSTEM" 

II II 

ENTER YOUR CHOICE (1-6) FROM ABOVE: 



CASE choice = "1" 



do 110000 

CASE choice = "2" 



DO 120000 

CASE choice = "3" 



DO 130000 

CASE choice = "4" 



DO 140000 

CASE choice = "5" 



DO 150000 

CASE choice = "6" 

CLEAR 

RELEASE ALL 



TO choice 
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RETURN 

OTHERWISE 

CLEAR 

@2,4 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 6 ONLY" 
@3,4 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
ENDCASE 
ENDDO 
RETURN 
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* 110000. PRG 

* MODULE NAME: 1.1. 0.0. 0.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : MAIN, 1.1. 1.0. 0.0, 1.1. 2. 0.0.0, 1.1. 3. 0.0.0 

* 1 . 1 . 4 . 0 . 0 . 0 , 1 . 1 . 5 . 0 . 0 . 0 . 

* ROUTINES THAT THE MODULE CALLS : 1 . 1 . 1 . 0 . 0 . 0 , 1.1. 2. 0.0.0, 1.1. 3. 0.0.0, 

* 1.1. 4. 0.0.0, 1.1. 5. 0.0.0, MAIN. 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS PROGRAM ALLOWS FOR THE MAINTENANCE OF ENTITY RELATIONS, 

* AND RELATIONSHIP RELATIONS. 

* 



do while .t. 



" 1 )' 

" 2 ). 



CLEAR 

@0,1 SAY "1.1 
@1,22 SAY 
@3,31 SAY 
@6,22 SAY 
@8,22 SAY 
@ 10,22 SAY 
@ 12,22 SAY 
@ 14,22 SAY 
@ 16,22 SAY 
@ 17,22 SAY 
ACCEPT 1 
DO CASE 
CASE choice = "1" 
do 111000 
CASE choice = "2" 



0 . 0 . 0 . 0 " 

"INFORMATION RESOURCE DICTIONARY SYSTEM" 
"MAINTENANCE MENU" 

ADD ENTITY" 

MODIFY ENTITY" 

DELETE ENTITY" 

ADD RELATIONSHIP" 

DELETE RELATIONSHIP" 

RETURN TO MAIN MENU" 



ENTER YOUR CHOICE (1-6) FROM ABOVE; 



DO 112000 

CASE choice = "3" 



DO 113000 

CASE choice = "4" 



DO 114000 

CASE choice = "5" 

DO 115000 

CASE choice = "6" 



RETURN TO MASTER 

OTHERWISE 

CLEAR 



@2,18 SAY choice 

@2,21 SAY "IS NOT A VALID CHOICE" 

@3,18 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 6 ONLY" 
@4,18 SAY "PRESS RETURN TO TRY AGAIN!" 

WAIT TO hold 
ENDCASE 
ENDDO 
RETURN 



TO choice 
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* 111000. PRG 

* MODULE NAME: 1.1. 1.0. 0.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.1. 0.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 1 . 1 . 1 . 0 . 0 , 1.1. 1.2. 0.0, 1.1. 1.3. 0.0, 

* 1.1. 1.4. 0.0, 1.1. 1.5. 0.0, 1.1. 1.6. 0.0, 1.1. 1.7. 0.0, 1.1. 1.8. 0.0, 1.1. 0.0. 0.0 

* MAIN 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RALATION 

* TO ADD TUPLES TO. 

* 



set color to 0/3,3 
set talk off 
CLEAR 

do while .t. 



CLEAR 

@01 SAY "1 . 1 . 1 . 0 . 0 . 0" 

@ 1*22 SAY " INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,35 SAY "ADD ENTITY" 



@6,15 SAY 
@ 8,15 SAY "2) 

@ 10,15 SAY "3 
@ 12,15 SAY "4 
@ 14,15 SAY "5 
@ 15,22 SAY " 
ACCEPT ' 

SET EXACT ON 
DO CASE 

CASE choice = "l 1 

do 111100 

CASE choice = "2 1 

DO 111200 

CASE choice = "3' 

DO 111300 

CASE choice = "4 1 

DO 111400 

CASE choice = "5 1 

DO 111500 

CASE choice = "6' 

DO 111600 

CASE choice = "7' 

DO 111700 

CASE choice = "8' 

DO 111800 

CASE choice = "9 1 



USER 

SYSTEM 

PROGRAM 

MODULE 

DOCUMENT 



FILE" 

RECORD" 

ELEMENT" 

RETURN TO PREVIOUS MENU" 
RETURN TO MAIN MENU" 



ENTER YOUR CHOICE (1-10) FROM ABOVE: 1 TO choice 



RETURN 

CASE choice = "10" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@2,3 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 10 ONLY" 
@3,3 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
ENDCASE 
ENDDO 
RETURN 
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* 111100. PRG 

* MODULE NAME : 1.1. 1.1. 0.0 

* INPUT FILES : USER 

* OUTPUT FILES: USER 

* ROUTINES THAT CALL THE MODLUE : 1.1. 1.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 1 . 1 . 0 . 0 . 0 

* LOCAL VARIABLES USED: 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 

* CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 

* MODIFIED, DELETED FROM OR OUTPUT. 

* t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

* LOOP . 

* INPUT FILES: USER 

* OUTPUT FILES: USER 



* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS PROGRAM ALLOWS THE USER TO ENTER NEW TUPLES TO THE USER RELATION. 

* 



USE 

do while .t. 



CLEAR 

@ 0,1 SAY "1.1. 1.1. 0.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,36 SAY "ADD USER" 

@ 6,22 SAY "This program will allow you to enter" 
@7,22 SAY "additional tuples to the USER relation. 
@ 8,22 SAY "Instructions for entering data are" 

@ 9,22 SAY "provided at top of entry screen." 

@ 10,22 SAY '• " 
wait to choice 



II 



SET MENU ON 
USE USER 
APPEND 

SET MENU OFF 
RETURN 
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* 111200. PRG 

* MODULE NAME : 1.1. 1.2. 0.0 

* INPUT FILES : USER 

* OUTPUT FILES: USER 

* ROUTINES THAT CALL THE MODLUE : 1.1. 1.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 1 . 1 . 0 . 0 . 0 

* LOCAL VARIABLES USED: 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 

* CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 

* MODIFIED, DELETED FROM OR OUTPUT. 

* t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

* LOOP . 

* INPUT FILES: SYSTEM. 

* OUTPUT FILES: SYSTEM. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS PROGRAM ALLOWS THE USER TO ENTER NEW TUPLES TO THE SYSTEM RELATION. 

* 

USE 

do while .t. 

CLEAR 

@01 SAY 11 1 . 1 . 1 .2 .0 .0" 

@l)22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,35 SAY "ADD SYSTEM" 

@6,22 SAY "This program will allow you to enter" 

@7,22 SAY "additional tuples to the SYSTEM relation." 

@ 8,22 SAY "Instructions for entering data are" 

@ 9,22 SAY "provided at top of entry screen." 

@ 10,22 SAY '' " 

wait to choice 

SET MENU ON 

USE SYSTEM 

APPEND 

SET MENU OFF 

RETURN 
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* 111300. PRG 

* MODULE NAME : 1.1. 1.3. 0.0 

* INPUT FILES : USER 

* OUTPUT FILES: USER 

* ROUTINES THAT CALL THE MODLUE : 1.1. 1.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 1 . 1 . 0 . 0 . 0 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 

* CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 

* MODIFIED, DELETED FROM OR OUTPUT. 

* t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

* LOOP. 

* INPUT FILES: PROGRAM. 

* OUTPUT FILES: PROGRAM. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS PROGRAM ALLOWS THE USER TO ENTER NEW TUPLES TO THE PROGRAM RELATION. 

* 

USE 

set color to 0/3, 7/0,3 
set talk off 
do while . t. 

CLEAR 

@01 SAY 11 1 . 1 . 1 . 3 . 0 . 0" 

@1^22 SAY " INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,35 SAY "ADD PROGRAM" 

@6,22 SAY "This program will allow you to enter" 

@7,22 SAY "additional tuples to the PROGRAM relation." 

@ 8,22 SAY "Instructions for entering data are" 

@9,22 SAY "provided at top of entry screen." 

@ 10,22 SAY * " 
wait to choice 
SET MENU ON 
USE PROGRAM 
APPEND 

SET MENU OFF 
RETURN 
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* 111400. PRG 

* MODULE NAME : 1.1. 1.4. 0.0 

* INPUT FILES : USER 

* OUTPUT FILES: USER 

* ROUTINES THAT CALL THE MODLUE : 1.1. 1.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 1 . 1 . 0 . 0 . 0 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 

* CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 

* MODIFIED, DELETED FROM OR OUTPUT. 

* t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

* LOOP . 

* INPUT FILES: MODULE. 

* OUTPUT FILES: MODULE. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS PROGRAM ALLOWS THE USER TO ENTER NEW TUPLES TO THE MODULE RELATION. 

* 

USE 

do while .t. 

CLEAR 

@ 0,1 SAY “1.1. 1.4. 0.0" 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,36 SAY "ADD MODULE" 

@6,22 SAY "This program will allow you to enter" 

@7,22 SAY "additional tuples to the MODULE relation." 

@8,22 SAY "Instructions for entering data are" 

@9,22 SAY "provided at top of entry screen." 

@ 10,22 SAY " 
wait to choice 
SET MENU ON 
USE MODULE 
APPEND 

SET MENU OFF 
RETURN 
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* 111500. PRG 

* MODULE NAME : 1.1. 1.5. 0.0 

* INPUT FILES : USER 

* OUTPUT FILES: USER 

* ROUTINES THAT CALL THE MODLUE : 1.1. 1.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 1 . 1 . 0 . 0 . 0 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 

* CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 

* MODIFIED, DELETED FROM OR OUTPUT. 

* t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

* LOOP . 

* INPUT FILES: DOCUMENT. 

* OUTPUT FILES: DOCUMENT. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS PROGRAM ALLOWS THE USER TO ENTER NEW TUPLES TO THE DOCUMENT RELATION. 

* 

USE 

set color to 0/3, 7/0, 3 
set talk off 
do while . t. 

PT T7 AR 

@ 0,1 SAY "1.1. 1.5. 0.0" 

@1,22 SAY 11 INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,36 SAY "ADD DOCUMENT" 

@6,22 SAY "This program will allow you to enter" 

@7,22 SAY "additional tuples to the DOCUMENT relation." 

@ 8,22 SAY "Instructions for entering data are" 

@ 9,22 SAY "provided at top of entry screen." 

@ 10,22 SAY '' " 
wait to choice 
SET MENU ON 
USE DOCUMENT 
APPEND 

SET MENU OFF 
RETURN 
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* 111600. PRG 

* MODULE NAME : 1.1. 1.6. 0.0 

* INPUT FILES : USER 

* OUTPUT FILES: USER 

* ROUTINES THAT CALL THE MODLUE : 1.1. 1.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 1 . 1 . 0 . 0 . 0 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 

* CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 

* MODIFIED, DELETED FROM OR OUTPUT. 

* t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

* LOOP. 

* INPUT FILES: FILE. 

* OUTPUT FILES: FILE. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS PROGRAM ALLOWS THE USER TO ENTER NEW TUPLES TO THE FILE RELATION. 

* 

USE 

do while . t. 

PT FIR 

@ 0,1 SAY "1.1. 1.6. 0.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,36 SAY "ADD FILE" 

@6,22 SAY "This program will allow you to enter" 

@7,22 SAY "additional tuples to the FILE relation." 

@ 8,22 SAY "Instructions for entering data are" 

@9,22 SAY "provided at top of entry screen." 

@ 10,22 SAY " 
wait to choice 
SET MENU ON 
USE FILE 
APPEND 

SET MENU OFF 
RETURN 
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* 111700. PRG 

* MODULE NAME : 1.1. 1.7. 0.0 

* INPUT FILES : USER 

* OUTPUT FILES: USER 

* ROUTINES THAT CALL THE MODLUE : 1.1. 1.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 1 . 1 . 0 . 0 . 0 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 

* CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 

* MODIFIED, DELETED FROM OR OUTPUT. 

* t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

* LOOP . 

* INPUT FILES: RECORD. 

* OUTPUT FILES: RECORD. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS PROGRAM ALLOWS THE USER TO ENTER NEW TUPLES TO THE RECORD RELATION 

* 

USE 

do while .t. 

CLEAR 

@01 SAY 11 1 . 1 . 1 . 7 . 0 . 0 M 

@1^22 SAY 11 INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,36 SAY "ADD RECORD" 

@6,22 SAY "This program will allow you to enter" 

@ 7,22 SAY "additional tuples to the RECORD relation." 

@ 8,22 SAY "Instructions for entering data are" 

@ 9,22 SAY "provided at top of entry screen." 

@ 10,22 SAY * " 

wait to choice 

SET MENU ON 

USE RECORD 

APPEND 

SET MENU OFF 

RETURN 
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* 111800. PRG 

* MODULE NAME : 1.1. 1.8. 0.0 

* INPUT FILES : USER 

* OUTPUT FILES: USER 

* ROUTINES THAT CALL THE MODLUE : 1.1. 1.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 1 . 1 . 0 . 0 . 0 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 

* CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 

* MODIFIED, DELETED FROM OR OUTPUT. 

* t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

* LOOP. 

* INPUT FILES: ELEMENT. 

* OUTPUT FILES: ELEMENT. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS PROGRAM ALLOWS THE USER TO ENTER NEW TUPLES TO THE ELEMENT RELATION. 

* 

USE 

do while . t. 

CLEAR 

@ 0,1 SAY "1.1. 1.8. 0.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,36 SAY "ADD ELEMENT" 

@6,22 SAY "This program will allow you to enter" 

@7,22 SAY "additional tuples to the ELEMENT relation." 

@ 8,22 SAY "Instructions for entering data are" 

@9,22 SAY "provided at top of entry screen." 

@ 10,22 SAY T> " 
wait to choice 
SET MENU ON 
USE ELEMENT 
APPEND 

SET MENU OFF 
RETURN 
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* 112000. PRG 

* MODULE NAME: 1.1. 2. 0.0.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.1. 0.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 1 . 2 . 1 . 0 . 0 , 1.1. 2. 2. 0.0, 1.1. 2. 3. 0.0, 

* 1 . 1 . 2 . 4 . 0 . 0 , 1 . 1 . 2 . 5 . 0 . 0 , 1 . 1 . 2 . 6 . 0 . 0 , 1 . 1 . 2 . 7 . 0 . 0 , 1 . 1 . 2 . 8 . 0 . 0 , 1 . 1 . 0 . 0 . 0.0 

* MAIN 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* INPUT FILE: MEM_VAR . 

* OUTPUT FILE: MEM VAR. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RELATION 

* TO MODIFY. 

* 



do while .t. 

CLEAR 

@11 SAY " 1 . 1 . 2 . 0 . 0 . 0" 

@2*22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@4,35 SAY "MODIFY ENTITY" 

@7,15 SAY "1) USER 

"2) SYSTEM 
" ' ‘ ) PROGRAM 

} MODULE 
) DOCUMENT 



@9,15 SAY 
@ 11,15 SAY 
@ 13,15 SAY 
@ 15,15 SAY 
@ 16,22 SAY 
ACCEPT 1 
DO CASE 
CASE choice = "1" 
store 'USER 



?}, 

8 

9 

10 



FILE" 

RECORD" 

ELEMENT" 

RETURN TO PREVIOUS MENU" 
RETURN TO MAIN MENU" 



ENTER YOUR CHOICE (1-10) FROM ABOVE: 1 TO choice 



to choice 



save to mem var 
do 112100 “ 

CASE choice = "2" 
store 'SYSTEM' to choice 



save to mem var 
DO 112100 ~ 

CASE choice = "3" 

store 'PROGRAM' to choice 



save to mem var 
DO 112100 ~ 

CASE choice = "4" 
store 'MODULE' to choice 



save to mem var 
DO 112100 ~ 

CASE choice = "5" 

store 'DOCUMENT' to choice 



save to mem var 
DO 112100 ~ 

CASE choice = "6" 
store 'FILE' to choice 



save to mem var 
DO 112100 ~ 

CASE choice = "7" 
store 'RECORD' to choice 



save to mem var 
DO 112100 “ 

CASE choice = "8" 
store 'ELEMENT' to choice 
save to mem var 
DO 112100 “ 

CASE choice = "9" 

RETURN 

CASE choice = "10" 

RETURN TO MASTER 
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OTHERWISE 

CLEAR 

@2,3 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 10 ONLY" 
@3,3 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
ENDCASE 
ENDDO 
RETURN 
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* 112100. PRG 

* MODULE NAME: 1.1. 2. 0.0.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.1. 0.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 1 . 2 . 1 . 0 . 0 , 1.1. 2. 2. 0.0, 1.1. 2. 3. 0.0, 

* 1 . 1 . 2 . 4 . 0 . 0 , 1 . 1 . 2 . 5 . 0 . 0 , 1 . 1 . 2 . 6 . 0 . 0 , 1 . 1 . 2 . 7 . 0 . 0 , 1 . 1 . 2 . 8 . 0 . 0 , 1 . 1 . 0 . 0 . 0.0 

* MAIN 



* LOCAL VARIABLES USED: 



choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT, 
hold : USED TO STOP ACTION FOR USER DECISION. 

rec num : CONTAINS THE VALUE OF THE POINTER TO THE TUPLE TO BE CHANGED, 
stop : USED TO STOP ACTION FOR USER DECISION. 

t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

LOOP. 

INPUT FILES: MEMJVAR, USER, SYSTEM, PROGRAM, MODULE, 

ELEMENT. 

OUTPUT FILES: MEM_VAR, USER, SYSTEM, PROGRAM, MODULE, DOCUMENT, FILE 
ELEMENT. 

DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RELATION 
TO MODIFY. 



DOCUMENT, FILE, 



RECORD, 

RECORD, 



RESTORE FROM mem_var 
STORE 0 TO rec num, stop 
CLEAR 

STORE . t, TO TRUE 
do while TRUE 
CLEAR 

@0,1 SAY "1.1. 2. 1.0.0" 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,35 SAY "MODIFY ENTITY" 

@7,24 SAY "ENTER TUPLE NUMBER OF THE" 

@7,51 SAY choice 

ACCEPT' YOU WISH TO MODIFY ' TO rec_num 

IF (rec num <= '0') .OR. (rec num > '99999') 

CLEAR 

@1,24 SAY rec_num 

@1,32 SAY "IS NOT A VALID RESPONSE" 

@2,23 SAY "TUPLE NUMBER MUST BE GREATER THAN 0" 

@'3,23 SAY "AND LESS THAN 99999." 

WAIT TO stop 
ELSE 

STORE .F. TO TRUE 

ENDIF 

ENDDO 

DO CASE 

CASE choice = 'USER' 

USE USER 

EDIT(VAL( rec num)) 

RETURN 

CASE choice = 'SYSTEM' 

USE SYSTEM 

EDIT (VAL( rec num)) 

RETURN 



CASE choice = 'PROGRAM' 
USE PROGRAM 
EDIT(VAL(rec num)) 
RETURN 

CASE choice = 'MODULE' 
USE MODULE 
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EDIT (VAL ( rec num ) ) 
RETURN 

CASE choice = 'DOCUMENT' 
USE DOCUMENT 
ED IT ( VAL ( r ec_num ) ) 
RETURN 

CASE choice = 'FILE' 

USE FILE 

EDIT ( VAL (rec_num)) 
RETURN 

CASE choice = 'RECORD' 
USE RECORD 
EDIT(VAL(rec_num) ) 
RETURN 

CASE choice = 'ELEMENT' 

USE ELEMENT 

EDIT ( VAL (rec_num)) 

RETURN 

@42,1 SAY "RETURN]" 



* 113000. PRG 

* MODULE NAME: 1.1. 3. 0.0.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.1. 0.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 1 . 3 . 1 . 0 . 0 , MAIN 

* LOCAL VARIABLES USED: 

* choice: CONTAINS THE NUMBER OF ACTION SELECTED ALSO USED TO TRANSFER THE 

* RELATION NAME TO NEXT PROGRAM. 

* t: REPRESTENTS NO VALUE AT ALL. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* INPUT FILE: MEM VAR. 

* OUTPUT FILE: MEH VAR. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RELATION 

* TO MODIFY. 

* 

SET EXACT ON 
set color to 0/3,3 
set talk off 
CLEAR 

do while .t. 

ERASE mem_var.mem 
CLEAR 

@11 SAY "1.1. 3. 0.0.0" 

@2^22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 



@4,35 SAY " 


DELETE ENTITY" 








@7,15 SAY " 


i) 


USER 


6 


FILE" 




@9,15 SAY " 


2) 


SYSTEM 


7) 


RECORD" 




@ 11,15 SAY 


"3) 


PROGRAM 


8) 


ELEMENT" 




@ 13,15 SAY 


"4) 


MODULE 


9 


RETURN TO 


PREVIOUS MENU 


@ 15,15 SAY 
@ 16,22 SAY 


"5 ) 

II II 


DOCUMENT 


10) 


RETURN TO 


MAIN MENU" 


ACCEPT 1 
DO CASE 
CASE choice 
store 'USER' 
save to mem 


= "1 
to 
var 


ENTER YOUR CHOICE 

ii 

choice 


(1-10) 


FROM ABOVE 


: ' TO choice 



do 113100 ~ 

CASE choice = "2" 

store 'SYSTEM 1 to choice 

save to mem_var 

DO 113100 

CASE choice = "3" 

store 'PROGRAM' to choice 

save to mem var 

DO 113100 “ 

CASE choice = "4" 
store 'MODULE' to choice 
save to mem var 
DO 113100 

CASE rhtvi rp — '•S 11 

store 'DOCUMENT' to choice 

save to mem var 

DO 113100 

CASE choice = "6" 

store 'FILE' to choice 

save to mem var 

DO 113100 

CASE choice = "7" 

store 'RECORD' to choice 

save to mem var 

DO 113100 “ 

CASE choice = "8" 

store 'ELEMENT' to choice 

save to mem var 
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DO 113100 

CASE choice = "9" 

RETURN 

CASE choice = "10" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@2,18 SAY choice 

@2,21 SAY "IS NOT A VALID CHOICE 

@3,18 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 10 ONLY" 
@4,21 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
ENDCASE 
ENDDO 
RETURN 
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* 113100. PRG 

* MODULE NAME: 1.1. 3. 1.0.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.1. 0.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 1 . 3 . 0 . 0 . 0 

* LOCAL VARIABLES USED: 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. 

* t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

* LOOP . 

* Stop : USED TO STOP ACTION FOR USER DECISION. 

* true : USED AS A BOOLEAN VALUE IN LOOPS. 

* rec num : CONTAINS THE VALUE REPRESENTING THE RECORD CHANGED. 

* INPUT FILES: USER, SYSTEM, PROGRAM, MODULE, DOCUMENT, FILE, RECORD, ELEMENT 

* OUTPUT FILES: USER, SYSTEM, PROGRAM, MODULE, DOCUMENT, FILE, RECORD, ELEMENT 

* mem_var.mem 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RELATION 

* TO DELETE TUPLES FROM. 

* 

SET MENU ON 
RESTORE FROM mem_var 
STORE 0 TO rec num, stop 
CLEAR 

STORE .t. TO TRUE 
do while TRUE 
CLEAR 

@01 SAY 11 1.1. 3. 1.0.0 11 

@ l'22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,35 SAY "DELETE ENTITY" 

@7,24 SAY "ENTER TUPLE NUMBER OF THE" 

@.7,51 SAY choice 

@8,24 SAY "TUPLE YOU WISH TO HAVE DELETED." 

@9,24 SAY "THE RECORD WILL BE DISPLAYED" 

@ 10,24 SAY "FOR YOU TO EXAMINE. IF YOU ARE" 

@ 11,24 SAY "SURE THAT YOU ARE DELETING THE" 

@ 12,24 SAY "RIGHT RECORD DEPRESS -U . " 

@ 14,24 SAY "IF YOU DO NOT WANT IT DELETED DEPRESS" 

@ 16,24 SAY "'O' TO RETURN TO MAINTENANCE MENU." 

ACCEPT' ENTER THE TUPLE NUMBER NOW 1 TO rec_num 

IF rec num > '99999' 

CLEAR 

@1,24 SAY rec_num 

@1,32 SAY "IS NOT A VALID RESPONSE" 

@2,23 SAY "TUPLE NUMBER MUST BE GREATER THAN 0" 

@3,23 SAY "AND LESS THAN 99999." 

WAIT TO Stop 
ELSE 

IF REC_NUM <= '0' 

RETURN 

STORE .F. TO TRUE 
END IF 
ENDDO 
DO CASE 

CASE choice = 'USER' 

USE USER 

EDIT(VAL( rec num)) 

RETURN 

CASE choice = 'SYSTEM' 

USE SYSTEM , 

EDIT(VAL(rec num)) 

RETURN 

CASE choice = 'PROGRAM' 

USE PROGRAM 
EDIT(VAL( rec num)) 

RETURN 
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CASE choice = 'MODULE' 
USE MODULE 
EDIT(VAL(rec_num) ) 
RETURN 

CASE choice = 'DOCUMENT 1 
USE DOCUMENT 
EDIT(VAL( rec_num) ) 
RETURN 

CASE choice = 'FILE' 

USE FILE 

EDIT(VAL(rec_num) ) 
RETURN 

CASE choice = 'RECORD' 

USE RECORD 

EDIT (VAL(rec_n urn) ) 

RETURN 

CASE choice = 'ELEMENT' 
USE ELEMENT 
EDIT(VAL(rec_num) ) 

RETURN 

ENDCASE 



114000. PRG 

MODULE NAME: 1.1. 4. 0.0.0 
INPUT FILES: NONE 
OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE : 1.1. 0.0. 0.0 
ROUTINES THAT THE MODULE CALLS : 1 . 1 .4 . 1 . 0 . 0 , MAIN 
LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES ' THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT, 
hold : USED TO STOP THE SCREEN OUTPUT FOR A USER DECISION, 

t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

LOOP. 

title : CONTAINS THE CHARACTER STRING THAT DESCRIBES THE RELATIONSHIP 
BEING ADDED TO, DELETED FROM OR OUTPUT. 

INPUT FILES: MEM_VAR 
OUTPUT FILES: MEM_VAR 
DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH RELATIONSHIP HE WOULD 
LIKE TO ADD TUPLES TO. 



CLEAR 

do while ~t. 

ERASE mem_var.mem 
CLEAR 

@01 SAY " 1 . 1 .4 . 0 . 0 . 0" 

@ 1*22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,32 SAY "ADD TO RELATIONSHIP" 

@5,9 SAY "1) USER CONTAINS SYSTEM 8) 

@5,64 SAY "ORDS" 

@7,9 SAY "2) SYSTEM CONTAINS PROGRAM 9) 

@7,64 SAY "LEMENT" 

@9,9 SAY "3) PROGRAM PROCESSES FILE 10) 

@9,64 SAY "FOR SYSTEM" 

@11,9 SAY "4) PROGRAM PROCESSES RECORD 11) 

@ 11,64 SAY "FOR FILE" 

@13,9 SAY "5) PROGRAM PROCESSES ELEMENT 12) 

@ 13,64 SAY "DOCUMENT" 

@ 15,9 SAY "6) SYSTEM CONTAINS PROGRAM 13) 

@ 15,64 SAY "S MENU" 

@17,9 SAY "7) PROGRAM CONTAINS MODULE 14) 

@ 17,64 SAY "NU" 

@ 18,22 SAY " " 

ACCEPT 1 ENTER YOUR CHOICE (1-14) FROM ABOVE: 

DO CASE 

CASE choice = "1" 

store 1 U_PROC S 1 to choice 

store 'USER-PROCESSES-SYSTEM 1 TO title 



FILE CONTAINS REC" 
RECORD CONTAINS E" 
USER RESPONSIBLE" 
USER RESPONSIBLE" 
PROGRAM PRODUCES" 
RETURN TO PREVIOU" 
RETURN TO MAIN ME" 



TO choice 



save to mem var 

do 114100 

CASE choice = "2" 

store 1 S_PROC_P 1 to choice 

store 'SYSTEM-PROCESSES-PROGRAM' TO title 



save to mem var 

do 114100 

CASE choice = "3" 

store 'P_PROC_F' to choice 

store 'PROGRAM-PROCESSES-FILE 1 TO title 



save to mem var 

do 114100 

CASE choice = "4" 

store ' P_PROC_R 1 to choice 

store 'PROGRAM-PROCESSES-RECORD' TO title 

save to mem var 

do 114100 “ 

CASE choice = "5" 
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store 1 P_PROC_E 1 to choice 

store ' PROGRAM-PROCESSES-ELEMENT 1 TO title 

save to mem var 

do 114100 

CASE choice = "6" 

store 'S C0NT_P' to choice 

store 'SYSTEM-CONTAINS-PROGRAM' TO title 

save to mem var 

do 114100 “ 

CASE choice = "7" 

store ’P_C0NT M' to choice 

store 'PROGRAM-CONTAINS-MODULE' TO title 

save to mem var 

do 114100 

CASE choice = "8" 

store 'F_C0NT_R' to choice 

store ' FILE-CONTAINS-RECORD 1 TO title 

save to mem var 

do 114100 

CASE choice = "9" 

store 1 R_C0NT_E 1 to choice 

store ' RECORD-CONTAINS-ELEMENT ' TO title 

save to mem var 

do 114100 

CASE choice = "10" 

store 'U_RESP S' to choice 

store 'USER-RESPONSIBLE-FOR-SYSTEM' TO title 
save to mem var 
do 114100 ~ 

CASE choice = "11" 

store 'U RESP F 1 to choice 

store 'USER-RESPONSIBLE-FOR-FILE' TO title 

save to mem var 

do 114100 

CASE choice = "12" 

store 'P PROD_D‘ to choice 

store 'PROGRAM-PRODUCES-DOCUMENT' TO title 

save to mem_var 

do 114100 

CASE choice = "13" 

RETURN 

CASE choice = "14" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@1,21 SAY choice 

@1,28 SAY "IS NOT A VALID CHOICE" 

@2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 14 ONLY 1 
@3,20 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
ENDCASE 
ENDDO 
RETURN 
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114100. PRG 

MODULE NAME: 1.1. 4. 1.0.0 
INPUT FILES: NONE 
OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE : 1.1. 4. 0.0.0 
ROUTINES THAT THE MODULE CALLS : 1 . 1 . 4 . 0 . 0 . 0 
LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO , 
MODIFIED, DELETED FROM OR OUTPUT. 

USED TO STOP ACTION FOR USER DECISION. 

REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 
LOOP. 

CONTAINS THE CHARACTER STRING THAT DESCRIBES THE RELATIONSHIP 
BEING ADDED TO, DELETED FROM OR OUTPUT. 

INPUT FILES: MEM_VAR , USER, SYSTEM, PROGRAM, MODULE, DOCUMENT, FILE, RECORD 
ELEMENT, U_CONTS , U_CONT_S , U_CONT_P , P_PROC_F , P_PROC_R , 
P_PROC_R. P_PROC_E. S_CONT_P, P_CONT_M, F_CONT_R, R_CONT_E , 
U_RESP_S, U_RESP_F , P_PRED D. 

MEM VAR, USER, SYST, PROGRAM, MODULE, DOCUMENT, FILE, RECORD, 
ELEMENT, TEMP U_CONTS , U_CONT_S , U_CONT_P , P_PROC_F , P_PROC_R 
P_PROC_R . P_PROC_E . S_CONT_P, P_CONT_M, F_CONT_R, R_CONT_E , 
U_RESP_S, U_RESP_F , P_PRED_D . 



hold 

t 

title 



OUTPUT FILES; 



* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW FOR THE ACTUAL INPUT OF ADDITIONAL TUPLES TO THE 

* RELATIONSHIP RELATION SELECTED. 

* 

CLEAR 

do while . t. 

RESTORE FROM mem var 
CLEAR 

@01 SAY " 1 • 1 . 4 • 1 • 0 • 0" 

@ 1*22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,32 SAY "ADD RELATIONSHIP" 

@8,22 SAY "YOU ARE ABOUT TO BEGIN ADDING TUPLES" 

@9,22 SAY "TO THE" 

@9,30 SAY TITLE 
@ 10,22 SAY "RELATION." 

WAIT TO STOP 
DO CASE 

CASE choice = "U PROC S" 

USE U PROC S 

APPEND 

RETURN 

CASE choice = "S_PROC_P" 

USE S PROC P 

APPEND 

RETURN 

CASE choice = "P PROC F" 

USE P PROC F 

APPEND 

RETURN 

CASE choice = "P_PROC_R" 

USE P_PROC R 

APPEND 

RETURN 

CASE choice = "P PROC E" 

USE P_PROC E 

APPEND 

RETURN 

CASE choice = "S CONT P" 

USE S_CONT P 

APPEND 

RETURN 

CASE choice = "P CONT M" 
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USE P_CONT_M 

APPEND 

RETURN 

CASE choice = "F CONT R" 

USE F_CONT_R 

APPEND 

RETURN 

CASE choice = "R CONT E" 

USE R_CONT_E * 

APPEND 

RETURN 

CASE choice = "U RESP S" 

USE U_RESP_S 

APPEND 

RETURN 

CASE choice = "U RESP F" 

USE U_RESP_F 

APPEND 

RETURN 

CASE choice = "P_PROD_D" 

USE P_PROD_D 

APPEND 

RETURN 

CASE choice = "13" 

RETURN 

CASE choice = ,l 14" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@1,21 SAY choice 

@1,28 SAY "IS NOT A VALID CHOICE" 

@2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 14 ONLY" 
@3,20 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
ENDCASE 
ENDDO 
RETURN 
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115000.PRG 

MODULE NAME: 1.1. 5. 0.0.0 
INPUT FILES: NONE 
OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE : 1.1. 0.0. 0.0 
ROUTINES THAT THE MODULE CALLS : 1 . 1 . 5 . 1 . 0 . 0 , MAIN 
LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO , 
MODIFIED , DELETED FROM OR OUTPUT, 
hold : USED TO STOP ACTION FOR USER DECISION. 

t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

LOOP. 

title : CONTAINS THE CHARACTER STRING THAT DESCRIBES THE RELATIONSHIP 
BEING ADDED TO, DELETED FROM OR OUTPUT. 

INPUT FILE : MEM_VAR . 

OUTPUT FILES: MEM_VAR . 

DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH RELATIONSHIP HE WOULD 
LIKE TO DELETE TUPLES FROM. 



do while .t. 

ERASE mem_var.mem 
CLEAR 

@01 SAY " 1 . 1 . 5 . 0 . 0 . 0" 

@1*22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,29 SAY "DELETE FROM RELATIONSHIP" 

@5,9 SAY "1) USER CONTAINS SYSTEM 8) 

@5,64 SAY "ORDS" 

@7,9 SAY "2) SYSTEM CONTAINS PROGRAM 9) 

@7,64 SAY "LEMENT" 

@9,9 SAY "3) PROGRAM PROCESSES FILE 10) 

@9,64 SAY "FOR SYSTEM" 

@ 11,9 SAY "4) PROGRAM PROCESSES RECORD 11) 

@ 11,64 SAY "FOR FILE" 

@13,9 SAY "5) PROGRAM PROCESSES ELEMENT 12) 

@ 13,64 SAY "DOCUMENT" 

@15,9 SAY "6) SYSTEM CONTAINS PROGRAM 13) 

@ 15,64 SAY "S MENU" 

@17,9 SAY "7) PROGRAM CONTAINS MODULE 14) 

@ 17,64 SAY "NU" 

@ 18,22 SAY " " 

ACCEPT 1 ENTER YOUR CHOICE (1-14) FROM ABOVE: 

DO CASE 
CASE choice = 
store 'U PROC 



FILE CONTAINS REC" 
RECORD CONTAINS E" 
USER RESPONSIBLE" 
USER RESPONSIBLE" 
PROGRAM PRODUCES" 
RETURN TO PREVIOU" 
RETURN TO MAIN ME" 



TO choice 



II 1 II 

S 1 to choice 

store 'USER-PROCESSES-SYSTEM' 
save to mem var 
do 115100 “ 

CASE choice = "2" 

store 1 S_PROC_P 1 to choice 

store 'SYSTEM-PROCESSES-PROGRAM 



TO title 



TO title 



save to mem var 
do 115100 “ 

CASE choice = "3" 

store 1 P PROC F 1 to choice 

store 'PROGRAM-PROCESSES-FILE' TO title 

save to mem var 

do 115100 

CASE choice = "4" 

store 1 P_PROC_R 1 to choice 

store 'PROGRAM-PROCESSES-RECORD' TO title 

save to mem var 

do 115100 " 

CASE choice = "5" 

store 'P PROC E 1 to choice 
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store 'PROGRAM-PROCESSES-ELEMENT' TO title 

save to mem var 

do 115100 

CASE choice = "6" 

store 'S CONT P' to choice 

store 'SYSTEM-CONTAINS-PROGRAM' TO title 

save to mem var 

do 115100 ” 

CASE choice = "7" 

store 1 P CONT M 1 to choice 

store 'PROGRAH-CONTAINS-MODULE' TO title 

save to mem var 

do 115100 

CASE choice = "8" 

store 'F_C0NT_R' to choice 

store 'FlLE-CONTAINS-RECORD' TO title 

save to mem var 

do 115100 “ 

CASE choice = "9" 

store 1 R CONT E 1 to choice 

store ' RECORD-CONTAINS-ELEMENT 1 TO title 

save to mem var 

do 115100 

CASE choice = "10" 

store 1 U RE SP S 1 to choice 

store 'USER-RESPONSIBLE-FOR-SYSTEM' TO title 
save to mem var 
do 115100 

CASE choice = "11" 

store , U_RESP_F I to choice 

store 1 USER-RESPONSIBLE-FOR-FILE 1 TO title 

save to mem var 

do 115100 “ 

CASE choice = "12" 

store 'P PROD_D 1 to choice 

store 'PROGRAM-PRODUCES-DOCUMENT' TO title 

save to mem var 

do 115100 “ 

CASE choice = "13" 

RETURN 

CASE choice = "14" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@1,21 SAY choice 

@1,28 SAY "IS NOT A VALID CHOICE" 

@2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 14 ONLY" 
@3,20 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
ENDCASE 
ENDDO 
RETURN 
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115100. PRG 

MODULE NAME: 1.1. 5. 1.0.0 
INPUT FILES: NONE 
OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE : 1.1. 5. 0.0.0 
ROUTINES THAT THE MODULE CALLS : 1 . 1 . 5 . 0 . 0 . 0 
LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO , 
MODIFIED , DELETED FROM OR OUTPUT. 

USED TO STOP ACTION FOR USER DECISION. 

CONTAINS THE VALUE OF THE POINTER TO THE TUPLE TO BE CHANGED. 
REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 
LOOP. 

CONTAINS THE CHARACTER STRING THAT DESCRIBES THE RELATIONSHIP 
BEING ADDED TO , DELETED FROM OR OUTPUT. 

INPUT FILES: MEM_VAR , U^CONTS , U_CONT_S , U_CONT_P, P PROC_F , P_PROC_R , 

P_PROC_R . P_PROC_E. S_CONT_P, P_CONT_M, F_CONT_R , R_CONT_E , 
U_RESP_S , U_RESP_F , P_PRED_D. 

MEM VAR , U CONTS, U CONT S, U CONT P, P PROC F , P_PROC_R, 
P_PROC_R. P_PROC_E. S_CONT_P,~P_CONT_M, F_CONT_R, R_CONT_E , 
U RESP S, U RESP F , P PRED D. 



hold 

rec_num 

t 

title 



OUTPUT FILES: 



* DESIGNED BY: ROBERT A. KIRSCH II 

* ^WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW FOR THE ACTUAL DELETION INPUT OF ADDITIONAL TUPLES 

* FROM THE DESIGNATED RELATIONSHIP FILE SELECTED. 

* 

do while . t. 

RESTORE FROM mem_var 
CLEAR 

@01 SAY "1 . 1 . 5 . 1 . 0 . 0" 

@ 1 22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,29 SAY "DELETE FROM RELATIONSHIP" 

@8,21 SAY "ENTER TUPLE NUMBER OF THE" 

@ 10,24 SAY TITLE 

@ 12,21 SAY "TUPLE THAT YOU WISH TO HAVE DELETED." 

@ 13,21 SAY "THE TUPLE WILL BE DISPLAYED FOR" 

@ 14,21 SAY "YOU TO EXAMINE. IF YOU ARE" 

@ 15,21 SAY "SURE THAT YOU ARE DELETING THE" 

@ 16,21 SAY "RIGHT TUPLE, DEPRESS -U . IF" 

@ 17,21 SAY "YOU DO NOT WANT IT DELETED," 

@ 18,21 SAY "TYPE 0 FOR TUPLE NUMBER" 

@ 19,21 SAY "TO RETURN TO PREVIOUS MENU." 

@ 20,21 SAY " " 

ACCEPT' ENTER THE TUPLE NUMBER NOW 1 TO rec_num 

DO WHILE rec_num <> 'O' 

DO CASE 

CASE choice = "U PROC S" 

USE U PROC_S 
GOTO IVAL(rec num)) 

EDIT 

RETURN 

CASE choice = "S_PROC_P" 

USE S PROC P 
GOTO X v AL(rec num)) 

EDIT 

RETURN 

CASE choice = "P PROC F" 

USE P PROC F 
GOTO X v &L(rec num)) 

EDIT 

RETURN 

CASE choice = "P PROC R" 

USE P PROC_R 
GOTO X v &L(rec num)) 

EDIT 
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RETURN 

CASE choice = "P_PROC_E 

USE P PROC_E 

GOTO JVAL ( r e c_num ) ) 

EDIT 

RETURN 

CASE choice = "S_CONT_P 

USE S CONT_P 

GOTO X VAL ( rec _ num ) ) 

EDIT 

RETURN 

CASE choice = "P_CONT_M 

USE P CONT_M 

GOTO XVAL(rec_num) ) 

EDIT 

RETURN 

CASE choice = "F_CONT_R 

USE F CONT_R 

GOTO XVAL(rec_num) ) 

EDIT 

RETURN 

CASE choice = "R_CONT_E 

USE R CONT_E 

GOTO XVAL(rec_num) ) 

EDIT 

RETURN 

CASE choice = "U_RESP_S 

USE U RESP_S 

GOTO XVAL(rec_num)) 

EDIT 

RETURN 

CASE choice = "U_RESP_F 

USE U RESP_F 

GOTO XVAL(rec_num) ) 

EDIT 

RETURN 

CASE choice = "P_PROD_D 

USE P PROD_D 

GOTO XVAL( rec_num) ) 

EDIT 

RETURN 

ENDCASE 

ENDDO 

RETURN 



* 120000. PRG 

* MODULE NAME: 1.2. 0.0. 0.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : MAIN 

* ROUTINES THAT THE MODULE CALLS : 1 . 2 . 1 . 0 . 0 . 0 , 1.2. 2. 0.0.0, MAIN. 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS PROGRAM ALLOWS THE USER TO SELECT ENTITY RELATIONS, 

* AND RELATIONSHIP RELATIONS FOR OUTPUT. 

* 



do while .t. 



CLEAR 

@ 0,1 SAY "1.2. 0.0. 0.0" 

"INFORMATION RESOURCE DICTIONARY SYSTEM" 
"DICTIONARY OUTPUT" 

ENTITY" 

RELATIONSHIP" 

RETURN TO MAIN MENU" 



@1,22 SAY 
@ 3,31 SAY 
@6,22 SAY 
@8,22 SAY 
@ 10,22 SAY 
@ 11,22 SAY 
ACCEPT ' 

DO CASE 
CASE choice 
do 121000 
CASE choice 



" 1 ) 
" 2 ) 



" 3 ) 



ENTER YOUR CHOICE (1-3) FROM ABOVE 



— II ^ II 

— u 2 11 



DO 122000 

CASE choice = "3" 



RETURN TO MASTER 

OTHERWISE 

CLEAR 

@2,18 SAY choice 

@2,21 SAY "IS NOT A VALID CHOICE" 

@3,18 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 
@4,18 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
ENDCASE 
ENDDO 
RETURN 



TO choice 
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* 121000. PRG 

* MODULE NAME: 1.2. 1.0. 0.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.2. 0.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 2 . 0 . 0 . 0 . 0 ( 1.2. 1.1. 0.0 MAIN 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* INPUT FILE : MEM VAR. 

* OUTPUT FILE: MEM_VAR 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RELATION 

* TO OUTPUT. 

* 



do while . t. 

ERASE mem_var.mem 
CLEAR 

@01 SAY "1 . 2 . 1 . 0 . 0 . 0" 

" INFORMATION RESOURCE DICTIONARY SYSTEM" 
"ENTITY OUTPUT" 

USER 
SYSTEM 
PROGRAM 
MODULE 
DOCUMENT 



" 1 )' 

" 2 ) 



@1,22 SAY 
@3,34 SAY 
@6,15 SAY 
@8,15 SAY 
@ 10,15 SAY "3 
@ 12,15 SAY "4 
@ 14,15 SAY "5 
@15,1 SAY " " 

ACCEPT' 

DO CASE 
CASE choice = "1" 
store 'USER' to choice 



FILE" 

RECORD" 

ELEMENT" 

RETURN TO PREVIOUS MENU 1 
RETURN TO MAIN MENU" 



ENTER YOUR CHOICE (1-10) FROM ABOVE: 'TO choice 



save to mem_var 

do 121100 

CASE choice = "2" 

store 'SYSTEM' to choice 



save to mem var 

DO 121100 

CASE choice = "3" 

store 'PROGRAM' to choice 



save to mem var 

DO 121100 

CASE choice = "4" 

store 'MODULE' to choice 



save to mem var 
DO 121100 ” 

CASE choice = "5" 
store 'DOCUMENT' to choice 
save to mem var 
DO 121100 “ 

CASE choice = "6" 
store 'FILE' to choice 



save to mem var 

DO 121100 

CASE choice = "7" 

store 'RECORD' to choice 

save to mem var 

DO 1211000 ~ 

CASE choice = "8" 
store 'ELEMENT' to choice 



save to mem var 
DO 121100 
CASE choice = "9" 
RETURN 

CASE choice = "10" 
RETURN TO MASTER 
OTHERWISE 



I 
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CLEAR 

@1,23 SAY choice 

@1,31 SAY "IS NOT A VALID CHOICE" 

@2,18 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 10 ONLY" 
@3,18 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
ENDCASE 
ENDDO 
RETURN 
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121100. PRG 

MODULE NAME: 1.2. 1.1. 0.0 
INPUT FILES: NONE 
OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE : 1.2. 1.0. 0.0 
ROUTINES THAT THE MODULE CALLS : 1 . 2 . 1 . 0 . 0 . 0 
LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT, 
hold : USED TO STOP ACTION FOR USER DECISION. 

option : CONTAINS THE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 
OR THE PRINTER. 

t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

LOOP. 

true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM_VAR 
OUTPUT FILES: MEM_VAR 
DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHETHER THE OUTPUT WILL BE 
DISPLAYED ON THE SCREEN OR PRINTED. 



RESTORE FROM mem_var 
STORE 0 TO rec_num, stop 
STORE . t. TO TRUE 
do while TRUE 
CLEAR 

@ 0,1 SAY "1.2. 1.1. 0.0" 

RESTORE FROM memvar 

@2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@4,33 SAY "ENTITY OUTPUT" 

@8,23 SAY "LISTED BELOW ARE THE CHOICES FOR HOW" 

@9,23 SAY "YOU CAN HAVE THE RELATION" 

@9,50 SAY CHOICE 
@ 10,23 SAY "DISPLAYED." 

@ 12,28 SAY "1) SCREEN OUTPUT" 

@ 14,28 SAY "2) PRINTER OUPUT" 

@ 16,28 SAY "3) RETURN TO PREVIOUS MENU" 

@17,1 SAY " " 

ACCEPT' ENTER YOUR CHOICE (1-3) FROM ABOVE 'TO option 

ERASE mem_var.mem 
SAVE TO meni var 
DO CASE 

CASE option = 1 1 ' 

DO CASE 

CASE CHOICE = 'USER' 

DO 121110 

CASE choice = 'SYSTEM' 

DO 121110 

CASE CHOICE = 'PROGRAM' 

DO 121110 

CASE choice = 'MODULE' 

DO 121110 

CASE CHOICE = 1 DOUCMENT ' 

DO 121120 

CASE choice = 'FILE' 

DO 121120 ' 

CASE CHOICE = 'RECORD' 

DO 121120 

CASE choice = 'ELEMENT' 

DO 121120 
ENDCASE 

CASE option = '2' 

DO CASE 

CASE CHOICE = 'USER' 

DO 121130 



164 



CASE choice = 'SYSTEM' 



DO 121130 
CASE CHOICE 
DO 121130 
CASE choice 
DO 121130 
CASE CHOICE 
DO 121140 
CASE choice 
DO 121140 
CASE CHOICE 
DO 121140 
CASE choice 



1 PROGRAM ' 

1 MODULE ' 

1 DOUCMENT ' 
'FILE' 

1 RECORD ' 

1 ELEMENT ' 



DO 121140 
ENDCASE 

CASE option = '3' 

RETURN 

OTHERWISE 

CLEAR 

@0,27 SAY option 

@0,34 SAY "IS NOT A VALID CHOICE" 

@1,26 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 

ACCEPT TO hold 

ENDCASE 

ENDDO 
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* 121110. PRG 

* MODULE NAME: 1.2. 1.1. 1.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.2. 1.1. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 2 . 1 . 1 . 0 . 0 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* stop, hold: USED TO STOP ACTION FOR USER DECISION. 

* count: KEEPS TRACK OF ACCOUNT NUMBERS. 

* INPUT FILE: MEM_VAR. 

* OUTPUT FILE: MEM_VAR . 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE WILL DISPLAY ON THE SCREEN USER, SYSTEM, 

* PROGRAM AND MODULE RELATIONS 
^RESTORE FROM mem var 

CLEAR 

@01 SAY 11 1 . 2 . 1 . 1 . 1 . 0" 

@ 1*22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,30 SAY "ENTITY SCREEN OUTPUT" 

@5,22 SAY "THIS MODULE WILL DISPLAY" 

0 5 48 SAY choice 

@7*22 SAY "IF YOU DO NOT WISH TO DISPLAY" 

@ 8,22 SAY "THIS ENTITY , TYPE 'O' TO" 

@9,22 SAY "RETURN TO THE PREVIOUS MENU." 

WAIT TO stop 
DO CASE 

CASE stop = 'O' 

RETURN 
OTHERWISE 
ENDCASE 
DO CASE 

CASE choice = 'USER 1 

CLEAR 

USE USER 

STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

PT TAD 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY ACC_NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY ID NAME 

@6,1 SAY "DATE TUPLE ADDED:" 

@6,28 SAY DATE_ADDED 
@7,1 SAY "TUPLE ADDED BY:" 

@7,28 SAY ADDED_BY 

@8,1 SAY "DATE TUPLE LAST MODIFIED:" 

@8,28 SAY LST_MOD_DT 

@9,1 SAY "TUPLE LAST MODIFIED BY:" 

@9,28 SAY LST MOD BY 

@10,1 SAY "NUMBER OF MODIFICATIONS:" 

@ 10,28 SAY NUM OF_MOD 
@11,1 SAY "DESCRIPTION:" 

@ 11,28 SAY DESCRIPT 
@15,1 SAY "COMMENTS:" 

@ 15,28 SAY COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE 1 TO hold 

SKIP 

ENDDO 

RETURN 
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CASE choice = 'SYSTEM* 

USE SYSTEM 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

ii 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@ 4,28 SAY ACC_NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY ID_NAME 

@6,1 SAY "DATE TUPLE ADDED:" 

@6,28 SAY DATE_ADDED 
@7,1 SAY "TUPLE ADDED BY:" 

@7,28 SAY ADDED_BY 

@8,1 SAY "DATE TUPLE LAST MODIFIED:" 

@8,28 SAY LST MOD_DT 

@9,1 SAY "TUPLE LAST MODIFIED BY:" 

@9,28 SAY LST_MOD_BY 

@10,1 SAY "NUMBER OF MODIFICATIONS:" 

@ 10,28 SAY NUM OF_MOD 
@11,1 SAY "DESCRIPTION:" 

@ 11,28 SAY DESCRIPT 
@ 15,1 SAY "COMMENTS:" 

@ 15,28 SAY COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE 1 TO hold 

SKIP 

ENDDO 

RETURN 

CASE choice = 'PROGRAM' 

USE PROGRAM 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY ACC NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY ID_NAME 

@6,1 SAY "DATE TUPLE ADDED:" 

@6,28 SAY DATE_ADDED 
@7,1 SAY "TUPLE ADDED BY:" 

@7,28 SAY ADDED_BY 

@8,1 SAY "DATE TUPLE LAST MODIFIED:" 

@8,28 SAY LST MOD_DT 

@9,1 SAY "TUPLE LAST MODIFIED BY:" 

@9,28 SAY LST_MOD_BY 

@10,1 SAY "NUMBER OF MODIFICATIONS:" 

@ 10,28 SAY NUM OF MOD 
@11,1 SAY "DESCRIPTION:" 

@ 11,28 SAY DESCRIPT 
@15,1 SAY "COMMENTS:" 

@ 15,28 SAY COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE 'TO hold 

SKIP 

ENDDO 

RETURN 

CASE choice = 'MODULE' 

USE MODULE 
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STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@2,33 SAY CHOICE 
@4,1 SAY "RECORD 

ii 

@ 4,11 SAY count 
store count + 1 to count 
@6,1 SAY "ACCESS NAME:" 

@6,28 SAY ACC NAME 

@7,1 SAY "IDENTIFICATION NAME:" 

@7,28 SAY ID_NAME 

@8,1 SAY "DATE TUPLE ADDED:" 

@8,28 SAY DATE ADDED 
@9,1 SAY "TUPLE ADDED BY:" 

@9,28 SAY ADDED_BY 

@10,1 SAY "DATE TUPLE LAST MODIFIED:" 

@ 10,28 SAY LST M0D_DT 

@11,1 SAY "TUPLE LAST MODIFIED BY:" 

@ 11,28 SAY LST_MOD_BY 

@12,1 SAY "NUMBER OF MODIFICATIONS:" 

@ 12,28 SAY NUM_OF_MOD 
@13,1 SAY "DESCRIPTION:" 

@ 11,28 SAY DESCRIPT 
@17,1 SAY "COMMENTS:" 

@ 15,28 SAY COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE 1 TO hold 

SKIP 

ENDDO 

RETURN 

END CASE 
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* 121120. PRG 

* MODULE NAME: 1.2. 1.1. 2.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.2. 1.1. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 2 . 1 . 1 . 0 . 0 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED 

* t: REPRESTENTS NO VALUE AT ALL. 

* stop, hold: USED TO STOP ACTION FOR USER DECISION. 

* count: KEEPS TRACK OF ACCOUNT NUMBERS. 

* INPUT FILE: MEM_VAR . 

* OUTPUT FILE: MEM_VAR . 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE WILL DISPLAY ON THE SCREEN DOCUMENT, FILE, 

* RECORD, AND ELEMENT RELATIONS. 

RESTORE FROM mem_var 
STORE 0 TO rec_num, stop 
CLEAR 

(B 0 1 SAY 11 1.2. 1.1. 2.0 11 

Q l', 22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,30 SAY "ENTITY SCREEN OUTPUT" 

@5,22 SAY "THIS MODULE WILL DISPLAY" 

@ 5,48 SAY choice 

@7,22 SAY "IF YOU DO NOT WISH TO DISPLAY THIS" 

@8,22 SAY "ENTITY, TYPE '0' TO RETURN TO" 

@9,22 SAY "PREVIOUS MENU." 

WAIT TO stop 
DO CASE 

CASE stop = 'O' 

RETURN 
OTHERWISE 
ENDCASE 
DO CASE 

CASE choice = 'DOCUMENT' 

USE DOCUMENT 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY ACC_NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY ID_NAME 

@6,1 SAY "DATE TUPLE ADDED:" 

@6,28 SAY DATE_ADDED 
@7,1 SAY "TUPLE ADDED BY:" 

@7,28 SAY ADDED_BY 

@8,1 SAY "DATE TUPLE LAST MODIFIED:" 

@8,28 SAY LST_MOD_DT 

@9,1 SAY "TUPLE LAST MODIFIED BY:" 

@9,28 SAY LST_MOD_BY 

@10,1 SAY "NUMBER OF MODIFICATIONS:" 

@ 10,28 SAY NUM_OF_MOD 
@11,1 SAY "DESCRIPTION:" 

@ 11,28 DESCRIPT 
@15,1 SAY "COMMENTS:" 

@ 15,28 COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE 'TO hold 

SKIP 

ENDDO 
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RETURN 

CASE choice = 'FILE' 

USE FILE 

STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY ACC_NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY ID_NAME 

@6,1 SAY "DATE TUPLE ADDED:" 

@6,28 SAY DATE ADDED 
@7,1 SAY "TUPLE ADDED BY:" 

@7,28 SAY ADDED_BY 

@8,1 SAY "DATE TUPLE LAST MODIFIED:" 

@8,28 SAY LST MOD DT 

@9,1 SAY "TUPLE LAST MODIFIED BY:" 

@9,28 SAY LST_MOD_BY 

@10,1 SAY "NUMBER OF MODIFICATIONS:" 

@ 10,28 SAY NUM OF_MOD 
@11,1 SAY "DESCRIPTION:" 

@ 11,28 DESCRIPT 
@ 15,1 SAY "COMMENTS:" 

@ 15,28 COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE 1 TO hold 

SKIP 

ENDDO 

RETURN 

CASE choice = 'RECORD' 

USE RECORD 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 

@ 2,1 SAY "RECORD 
n 

@ 2/11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY ACC NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY ID_NAME 

@6,1 SAY "DATE TUPLE ADDED:" 

@6,28 SAY DATE_ADDED 
@7,1 SAY "TUPLE ADDED BY:" 

@7,28 SAY ADDED_BY 

@8,1 SAY "DATE TUPLE LAST MODIFIED:" 

@8,28 SAY LST MOD_DT 

@9,1 SAY "TUPLE LAST MODIFIED BY:" 

@9,28 SAY LST_MOD_BY 

@10,1 SAY "NUMBER OF MODIFICATIONS:" 

@ 10,28 SAY NUM_OF_MOD 
@11,1 SAY "DESCRIPTION:" 

@ 11,28 DESCRIPT 
@15,1 SAY "COMMENTS:" 

@ 15,28 COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE 'TO hold 

SKIP 

ENDDO 

RETURN 

CASE choice = 'ELEMENT' 
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USE ELEMENT 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY ACC_NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@ 5,28 SAY ID_NAME 

@6,1 SAY "DATE TUPLE ADDED:" 

@6,28 SAY DATE ADDED 
@ 7,1 SAY "TUPLE ADDED BY:" 

@7,28 SAY ADDED_BY 

@8,1 SAY "DATE TUPLE LAST MODIFIED:" 

@8,28 SAY LST MOD_DT 

@9,1 SAY "TUPLE LAST MODIFIED BY:" 

@9,28 SAY LST_MOD_BY 

@10,1 SAY "NUMBER OF MODIFICATIONS:" 

@ 10,28 SAY NUM OF MOD 
@11,1 SAY "DESCRIPTION:" 

@ 11,28 DESCRIPT 
@15,1 SAY "COMMENTS:" 

@ 15,28 COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE 'TO hold 

SKIP 

ENDDO 

RETURN 

END CASE 
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* 121130. PRG 

* MODULE NAME: 1.2. 1.1. 3.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.2. 1.1. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 2 . 1 . 1 . 0 . 0 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* Stop, hold: USED TO STOP ACTION FOR USER DECISION. 

* count: KEEPS TRACK OF ACCOUNT NUMBERS. 

* INPUT FILE: MEM_VAR . 

* OUTPUT FILE: MEM_VAR . 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE WILL OUTPUT THE USER, SYSTEM, PROGRAM AND MODULE 

* RELATION FILES TO THE PRINTER. 

* 

RESTORE FROM mem_var 
STORE 0 TO rec_num, stop 
CLEAR 

@01 SAY "1 .2 . 1 . 1 . 3 .0" 

@1^22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,29 SAY "ENTITY PRINTER OUTPUT" 

@6,23 SAY "THIS MODULE WILL PRINT" 

@6,47 SAY choice 

@8,23 SAY "PLEASE INSURE THAT YOUR PRINTER" 

@9,23 SAY "IS TURNED ON AND IN THE ONLINE" 

@ 10,23 SAY "MODE" 

@ 12,23 SAY "IF YOU DO NOT WISH TO PRINT" 

@ 13,23 SAY "THIS ENTITY, TYPE 'O' TO" 

@ 14,23 SAY "RETURN TO THE PREVIOUS MENU" 

WAIT TO stop 
DO CASE 

CASE stop = '0' 

RETURN 

OTHERWISE 

ENDCASE 

SET DEVICE TO PRINT 
SET CONSOLE OFF 
DO CASE 

CASE choice = 'USER' 

USE USER 

STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY ACC NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY ID_NAME 

@6,1 SAY "DATE TUPLE ADDED:" 

@6,28 SAY DATE_ADDED 
@7,1 SAY "TUPLE ADDED BY:" 

@7,28 SAY ADDED_BY 

@8,1 SAY "DATE TUPLE LAST MODIFIED:" 

@8,28 SAY LST_MOD_DT 

@9,1 SAY "TUPLE LAST MODIFIED BY:" 

@9,28 SAY LST_MOD_BY 

@10,1 SAY "NUMBER OF MODIFICATIONS:" 

@ 10,28 SAY NUM OF MOD 
@11,1 SAY "DESCRIPTION:" 

@ 11,28 SAY DESCRIPT 
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@15,1 SAY "COMMENTS:" 

@ 15,28 SAY COMMENTS 
@18,1 SAY " " 

SKIP 

ENDDO 

CASE choice = 'SYSTEM' 

USE SYSTEM 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

PT FAR 

@0,33 SAY CHOICE 
@ 2,1 SAY "RECORD 

it 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY ACC_NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY ID_NAME 

@6,1 SAY "DATE TUPLE ADDED:" 

@6,28 SAY DATE_ADDED 
@7,1 SAY "TUPLE ADDED BY:" 

@7,28 SAY ADDED_BY 

@8,1 SAY "DATE TUPLE LAST MODIFIED:" 

@8,28 SAY LST_MOD_DT 

@9,1 SAY "TUPLE LAST MODIFIED BY:" 

@9,28 SAY LST_MOD BY 

@10,1 SAY "NUMBER OF MODIFICATIONS:" 

@ 10,28 SAY NUM_OF_MOD 

@ 11,1 SAY "DESCRIPTION:" 

@ 11,28 SAY DESCRIPT 
@15,1 SAY "COMMENTS:" 

@ 15,28 SAY COMMENTS 
@18,1 SAY " " 

SKIP 

ENDDO 

CASE choice = 'PROGRAM' 

USE PROGRAM 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY ACC NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY ID_NAME 

@6,1 SAY "DATE TUPLE ADDED:" 

@6,28 SAY DATE_ADDED 
@7,1 SAY "TUPLE ADDED BY:" 

@7,28 SAY ADDED_BY 

@8,1 SAY "DATE TUPLE LAST MODIFIED:" 

@8,28 SAY LST MOD DT 

@9,1 SAY "TUPLE LAST MODIFIED BY:" 

@9,28 SAY LST_MOD_BY 

@10,1 SAY "NUMBER OF MODIFICATIONS:" 

@ 10,28 SAY NUM_OF MOD 

@11,1 SAY "DESCRIPTION:" 

@ 11,28 SAY DESCRIPT 
@15,1 SAY "COMMENTS:" 

@ 15, 28 SAY COMMENTS 
@18,1 SAY " " 

SKIP 
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ENDDO 

CASE choice = 'MODULE' 

USE MODULE 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@ 2,1 SAY "RECORD 

ii 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY ACC_NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY ID_NAME 

@6,1 SAY "DATE TUPLE ADDED:" 

@ 6,28 SAY DATE_ADDED 
@7,1 SAY "TUPLE ADDED BY:" 

@ 7,28 SAY ADDED_BY 

@8,1 SAY "DATE TUPLE LAST MODIFIED:" 

@8,28 SAY LST MOD_DT 

@9,1 SAY "TUPLE LAST MODIFIED BY:" 

@9,28 SAY LST_MOD_BY 

@ 10,1 SAY "NUMBER OF MODIFICATIONS:" 

@ 10,28 SAY NUM_OF_MOD 

@11,1 SAY "DESCRIPTION:" 

@ 11,28 SAY DESCRIPT 
@15,1 SAY "COMMENTS:" 

@ 15,28 SAY COMMENTS 
@18,1 SAY " " 

SKIP 

ENDDO 

ENDCASE 

SET DEVICE TO SCREEN 
SET CONSOLE ON 
RETURN 
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* 121140. PRG 

* MODULE NAME: 1.2. 1.1. 4.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.2. 1.1. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 .2 . 1 . 1 . 0 . 0 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* stop, hold: USED TO STOP ACTION FOR USER DECISION. 

* count: KEEPS TRACK OF ACCOUNT NUMBERS. 

* INPUT FILE: MEM_VAR . 

* OUTPUT FILE: MEM_VAR . 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE WILL OUTPUT THE FIRST FOUR RELATIONSHIP 

* RELATION FILES TO THE PRINTER. 

* 

RESTORE FROM mem_var 
STORE 0 TO rec num, stop 
CLEAR 

@ 0,1 SAY "1.2. 1.1. 4.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,29 SAY "ENTITY PRINTER OUTPUT" 

@6,23 SAY "THIS MODULE WILL PRINT" 

@6,47 SAY choice 

@8,23 SAY "PLEASE INSURE THAT YOUR PRINTER" 

@9,23 SAY "IS TURNED ON AND IN THE ONLINE" 

@ 10,23 SAY "MODE" 

@ 12,23 SAY "IF YOU DO NOT WISH TO PRINT" 

@ 13,23 SAY "THIS RELATION, TYPE 'O' TO" 

@ 14,23 SAY "RETURN TO THE PREVIOUS MENU" 

WAIT TO stop 
DO CASE 

CASE stop = 'O' 

RETURN 

OTHERWISE 

ENDCASE 

SET DEVICE TO PRINT 
SET CONSOLE OFF 
DO CASE 

CASE choice = 'DOCUMENT' 

USE DOCUMENT 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY ACC_NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY ID_NAME 

@6,1 SAY "DATE TUPLE ADDED:" 

@6,28 SAY DATE_ADDED 
@7,1 SAY "TUPLE ADDED BY:" 

@7,28 SAY ADDED_BY 

@8,1 SAY "DATE TUPLE LAST MODIFIED:" 

@8,28 SAY LST_MOD_DT 

@9,1 SAY "TUPLE LAST MODIFIED BY:" 

@9,28 SAY LST_MOD_BY 

@10,1 SAY "NUMBER OF MODIFICATIONS:" 

@ 10,28 SAY NUM _OF_MOD 
@11,1 SAY "DESCRIPTION:" 

@ 11,28 DESCRIPT 
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@15,1 SAY "COMMENTS:" 

@ 15,28 COMMENTS 
@18,1 SAY " " 

SKIP 

ENDDO 

CASE choice = 'FILE 1 
USE FILE 

STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

PT FAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

n 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY ACC_NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY ID_NAME 

@6,1 SAY "DATE TUPLE ADDED:" 

@6,28 SAY DATE ADDED 
@7,1 SAY "TUPLE ADDED BY:" 

@7,28 SAY ADDED_BY 

@8,1 SAY "DATE TUPLE LAST MODIFIED:" 

@8,28 SAY LST MOD_DT 

@9,1 SAY "TUPLE LAST MODIFIED BY:" 

@9,28 SAY LSTMOD BY 

@10,1 SAY "NUMBER OF MODIFICATIONS:" 

@ 10,28 SAY NUM OF_MOD 

@11,1 SAY "DESCRIPTION:" 

@ 11,28 DESCRIPT 
@15,1 SAY "COMMENTS:" 

@ 15,28 COMMENTS 
@18,1 SAY " " 

SKIP 

ENDDO 

CASE choice = 'RECORD' 

USE RECORD 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

pr rap 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@ 2,11 SAY count 

store count + 1 to count 

@4,1 SAY "ACCESS NAME:" 

@4,28 SAY ACC NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY ID_NAME 

@6,1 SAY "DATE TUPLE ADDED:" 

@6,28 SAY DATE_ADDED 
@7,1 SAY "TUPLE ADDED BY:" 

@7,28 SAY ADDED_3Y 

@8,1 SAY "DATE TUPLE LAST MODIFIED:" 

@8,28 SAY LST_MOD_DT 

@9,1 SAY "TUPLE LAST MODIFIED BY:" 

@9,28 SAY LST MOD_BY 

@10,1 SAY "NUMBER OF MODIFICATIONS:" 

@ 10,28 SAY NUM_OF_MOD 

@11,1 SAY "DESCRIPTION:" 

@ 11,28 DESCRIPT 
@15,1 SAY "COMMENTS:" 

@ 15,28 COMMENTS 
@18,1 SAY " " 

SKIP 
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ENDDO 

CASE choice = 'ELEMENT' 

USE ELEMENT 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@2,11 SAY count 
store count + 1 to count 
@ 4,1 SAY "ACCESS NAME:" 

@4,28 SAY ACC NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY ID_NAME 

@6,1 SAY "DATE TUPLE ADDED:" 

@6,28 SAY DATE_ADDED 
@7,1 SAY "TUPLE ADDED BY:" 

@7,28 SAY ADDED_BY 

@8,1 SAY "DATE TUPLE LAST MODIFIED 

@8,28 SAY LST_MOD_DT 

@9,1 SAY "TUPLE LAST MODIFIED BY:" 

@9,28 SAY LST_MOD_BY 

@10,1 SAY "NUMBER OF MODIFICATIONS 

@ 10,28 SAY NUM_OF MOD 

@11,1 SAY "DESCRIPTION:" 

@ 11,28 DESCRIPT 
@15,1 SAY "COMMENTS:" 

@ 15,28 COMMENTS 
@18,1 SAY " " 

SKIP 

ENDDO 

ENDCASE 

SET DEVICE TO SCREEN 
SET CONSOLE ON 
RETURN 
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* 122100. PRG 

* MODULE NAME: 1.2. 2. 1.0.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.2. 2. 0.0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 2 . 2 . 0 . 0 . 0 

* LOCAL VARIABLES USED: 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 

* CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 

* MODIFIED, DELETED FROM OR OUTPUT. 

* hold : USED TO STOP ACTION FOR USER DECISION. 

* option : CONTAINS THE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 

* OR THE PRINTER. 

* t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

* LOOP . 

* INPUT FILES: MEM VAR. 

* OUTPUT FILES: MEM_VAR . 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHETHER THE OUTPUT WILL BE 

* DISPLAYED ON THE SCREEN OR PRINTED. 

* 

RESTORE FROM mem_var 
STORE 0 TO rec_num, stop 
STORE . t. TO TRUE 
do while TRUE 
CLEAR 

@ 0,1 SAY "1.2. 2. 1.0.0" 

RESTORE FROM mem_var 

@2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@4,29 SAY "RELATIONSHIP OUTPUT" 

@8,23 SAY "LISTED BELOW ARE THE CHOICES FOR" 

@9,23 SAY "HOW YOU CAN HAVE THE RELATIONSHIP" 

@ 11,24 SAY TITLE 
@ 13,23 SAY "DISPLAYED." 

@ 15,28 SAY "1) SCREEN OUTPUT" 

@ 17,28 SAY "2) PRINTER OUPUT" 

@ 19,28 SAY "3) RETURN TO PREVIOUS MENU" 

@20,1 SAY " " 

ACCEPT' ENTER YOUR CHOICE (1-3) FROM ABOVE 'TO option 

ERASE mem_var.mem 
SAVE TO mem_var 
DO CASE 

CASE option = ' 1 ' 

DO CASE 

CASE CHOICE = 'U PROC_S ' 

DO 122110 

CASE choice = 'S PROC P' 

DO 122110 

CASE CHOICE = 'P PROC_F ' 

DO 122110 

CASE choice = 'P PROC_R' 

DO 122110 

CASE CHOICE = 'P PROC E ' 

DO 122120 

CASE choice = 'S CONT P ' 

DO 122120 

CASE CHOICE = 'P CONT M' 

DO 122120 

CASE choice = 'F CONT R' 

DO 122120 

CASE CHOICE = ' R_CONT_E ' 

DO 122130 

CASE choice = 'U RESP S' 

DO 122130 

CASE CHOICE = 'U RESP_F ' 

DO 122130 



178 



CASE choice = 'P_PROD_D' 

DO 122130 
END CASE 

CASE option = '2' 

DO CASE 

CASE CHOICE = 1 U_PROC_S ' 

DO 122140 

CASE choice = 'S_PROC_P' 

DO 122140 

CASE CHOICE = 'P PROC_F 1 
DO 122140 

CASE choice = 'P_PROC_R' 

DO 122140 

CASE CHOICE = 1 P PROC E ' 

DO 122150 

CASE choice = 'S_CONT_P' 

DO 122150 

CASE CHOICE = 'PCONT M 1 
DO 122150 

CASE choice = 'F_CONT_R' 

DO 122150 

CASE CHOICE = 'R CONT E' 

DO 122160 

CASE choice = 'U RESP S' 

DO 122160 

CASE CHOICE = ' U_RESP_F 1 
DO 122160 

CASE choice = 'P PROD D' 

DO 122160 
ENDCASE 

CASE option = 1 3 1 
RETURN 
OTHERWISE 
CLEAR 

@0,27 SAY option 

@0,34 SAY "IS NOT A VALID CHOICE" 

@1,26 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 
@2,26 SAY "PRESS RETURN AND TRY AGAIN!" 

ACCEPT TO hold 

ENDCASE 

ENDDO 
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122110. PRG 

MODULE NAME: 1.2. 2. 1.1.0 
INPUT FILES: NONE 
OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE : 1.2.2. 1.0.0 
ROUTINES THAT THE MODULE CALLS : 1 . 2 . 2 . 1 . 0 . 0 
LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

count : USED TO KEEP TRACK OF THE RECORD NUMBER BEING DISPLAYED, 

hold : USED TO STOP ACTION FOR USER DECISION. 

option : CONTAINS THE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 
OR THE PRINTER. 

t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

LOOP. 

INPUT FILES: MEMJ/AR U_CONTS , S_CONT_P , P_PROC_F, P_PROC_R. 

OUTPUT FILES: MEMJVAR. 

DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 

THIS MODULE WILL DISPLAY ON THE FIRST FOUR RELATIONSHIP TO THE SCREEN. 



RESTORE FROM mem_var 
CLEAR 

0 0,1 SAY 11 1 . 2 . 2 . 1 . 1 . 0" 

0 1 ’ , 22 SAY " INFORMATION RESOURCE DICTIONARY SYSTEM" 
0 3,28 SAY "RELATIONSHIP SCREEN OUTPUT" 

0 5,22 SAY "THIS MODULE WILL DISPLAY" 

0 7 23 SAY TITLE 

0 9^22 SAY "IF YOU DO NOT WISH TO DISPLAY" 

0 10,22 SAY "THIS RELATIONSHIP, TYPE '0' TO" 

0 11,22 SAY "RETURN TO THE PREVIOUS MENU." 

WAIT TO stop 
DO CASE 

CASE stop = 'O' 

RETURN 
OTHERWISE 
ENDCASE 
DO CASE 

CASE choice = ' U_PROC S' 

CLEAR 

USE U_PROC_S 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

0 2,33 SAY TITLE 
0 4,1 SAY "RECORD 



0 4,11 SAY count 
store count + 1 to count 
0 6,1 SAY "ACCESS NAME:" 

0 6,28 SAY U_NAME 
0 7,1 SAY "IDENTIFICATION NAME:" 

0 7,28 SAY S NAME 
0 9,1 SAY " 17 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE ' TO hold 

SKIP 

ENDDO 

RETURN 

CASE choice = ' S_PROC_P' 

USE S_PROC_P 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

0 2,33 SAY TITLE 



180 



@4,1 SAY "RECORD 

II 

@ 4,11 SAY count 
store count + 1 to count 
@6,1 SAY "ACCESS NAME:" 

@6,28 SAY S_NAME 

@7,1 SAY "IDENTIFICATION NAME:" 

@7,28 SAY P_NAME 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE 1 TO hold 

SKIP 

ENDDO 

RETURN 

CASE choice = 'P_PROC_F' 

USE P_PROC_F 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@2,33 SAY TITLE 
@4,1 SAY "RECORD 

II 

@ 4,11 SAY count 
store count + 1 to count 
@6,1 SAY "ACCESS NAME:" 

@6,28 SAY P_NAME 

@7,1 SAY "IDENTIFICATION NAME:" 

@7,28 SAY F_NAME 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE 1 TO hold 

SKIP 

ENDDO 

RETURN 

CASE choice = 'P_PROC R' 

USE P_PROC_R 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@2,33 SAY TITLE 
@4,1 SAY "RECORD 

II 

@ 4,11 SAY count 
sto.re count + 1 to count 
@6,1 SAY "ACCESS NAME:" 

@6,28 SAY P_NAME 

@7,1 SAY "IDENTIFICATION NAME:" 

@7,28 SAY R_NAME 
@8,1 SAY "COMMENTS:" 

DISPLAY OFF COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE 1 TO hold 

SKIP 

ENDDO 

RETURN 

ENDCASE 

* MODULE NAME: 1.2. 2. 0.0.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.1. 0.0. 0.0 

* ROUTINES THAT THE MODULE CALLS :TBD, MAIN 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* INPUT FILE: MEM VAR. 

* OUTPUT FILE: MEM_VAR . 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH RELATIONSHIP HE WOULD 

* LIKE TO DELETE TUPLES FROM. 
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* 



do while .t. 

ERASE mem_var.mem 
CLEAR 

@01 SAY " 1 . 2 . 2 . 0 . 0 . 0" 

@ l'22 SAY "INFORMATiON RESOURCE DICTIONARY SYSTEM" 
@3,29 SAY "RELATIONSHIP OUTPUT" 

@5,9 SAY "1) USER CONTAINS SYSTEM 
@5,64 SAY "ORDS" 

@7,9 SAY "2) SYSTEM CONTAINS PROGRAM 
@7,64 SAY "LEMENT" 

@9,9 SAY "3) PROGRAM PROCESSES FILE 
@9,64 SAY "FOR SYSTEM" 

@ 11,9 SAY "4) PROGRAM PROCESSES RECORD 
@ 11,64 SAY "FOR FILE" 

@ 13,9 SAY "5) PROGRAM PROCESSES ELEMENT 
@ 13,64 SAY "DOCUMENT" 

@15,9 SAY "6) SYSTEM CONTAINS PROGRAM 
@ 15,64 SAY "S MENU" 

@17,9 SAY "7) PROGRAM CONTAINS MODULE 
@ 17,64 SAY "NU" 

@ 18,22 SAY " " 

ACCEPT 1 
DO CASE 
CASE choice 
store 'U PROC 



8 ) 

9 ) 

10 ) 

ID 

12 ) 

13) 

14) 



FILE CONTAINS REC" 
RECORD CONTAINS E" 
USER RESPONSIBLE" 
USER RESPONSIBLE" 
PROGRAM PRODUCES" 
RETURN TO PREVIOU 
RETURN TO MAIN ME 



ENTER YOUR CHOICE (1-14) FROM ABOVE : 1 TO choice 



TO title 



II ^ II 

_S 1 to choice 

store 'USER PROCESSES SYSTEM 1 
save to mem var 
do 122100 
CASE choice = "2" 
store 'S_PROC_P' to choice 
Store 'SYSTEM PROCESSES PROGRAM' TO title 



save to mem var 
do 122100 ~ 

CASE choice = "3" 

store 'P_PROC_F' to choice 

store 'PROGRAM PROCESSES FILE' TO title 

save to mem var 

do 122100 “ 

CASE choice = "4" 

store 'P PROC R' to choice 

store 'PROGRAM PROCESSES RECORD' TO title 

save to mem var 

do 122100 ~ 

CASE choice = "5" 

store 'P_PROC_E' to choice 

store 'PROGRAM PROCESSES ELEMENT 1 TO title 



save to mem var 
do 122100 “ 

CASE choice = "6" 

store ' SCONT P' to choice 

store 'SYSTEM CONTAINS PROGRAM' TO title 

save to mem var 

do 122100 " 

CASE choice = "7" 

store 'P_CONT_M' to choice 

store 'PROGRAM CONTAINS MODULE' TO title 

save to mem var 

do 122100 

CASE choice = "8" 

store ' F_CONT_R ' to choice 

store 'FILE CONTAINS RECORD' TO title 

save to mem var 

do 122100 “ 

CASE choice = "9" 

store 'R CONT E ' to choice 

store 'RECORD CONTAINS ELEMENT' TO title 

save to mem var 
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do 122100 

CASE choice = "10" 

store 'U RESP S' to choice 

store 1 USER RESPONSIBLE FOR SYSTEM' TO title 
save to mem var 
do 122100 ~ 

CASE choice = "11" 

store 1 U_RESP_F 1 to choice 

store 'USER RESPONSIBLE FOR FILE' TO title 

save to mem var 

do 122100 

CASE choice = "12" 

store ' P PROD D ' to choice 

store 'PROGRAM PRODUCES DOCUMENT' TO title 

save to mem var 

do 122100 " 

CASE choice = "13" 

RETURN 

CASE choice = "14" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@1,21 SAY choice 

@1,28 SAY "IS NOT A VALID CHOICE" 

@2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 14 ONLY" 
@3,20 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
ENDCASE 
ENDDO 
RETURN 
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* 122120. PRG 

* MODULE NAME: 1.2. 2. 1.2.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.2. 2. 1.0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 2 . 2 . 1 . 0 . 0 

* LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

count j USED TO KEEP TRACK OF THE RECORD NUMBER BEING DISPLAYED, 

hold : USED TO STOP ACTION FOR USER DECISION. 

option : CONTAINS THE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 
OR THE PRINTER. 

t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

LOOP. 

INPUT FILES: MEM VAR P_PROC E, S CONT P, P CONT M, F CONT R. 

* OUTPUT FILES: MEM_VAR . 

DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 

THIS MODULE WILL DISPLAY THE NEXT FOUR RELATIONSHIP TO THE SCREEN. 



RESTORE FROM mem var 
CLEAR 

@ 0,1 SAY "1.2. 2. 1.2.0" 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,28 SAY "RELATIONSHIP SCREEN OUTPUT" 

@5,22 SAY "THIS MODULE WILL DISPLAY" 

@7,23 SAY TITLE 

@9,22 SAY "IF YOU DO NOT WISH TO DISPLAY" 

@ 10,22 SAY "THIS RELATIONSHIP, TYPE 'O' TO" 

@ 11,22 SAY "RETURN TO THE PREVIOUS MENU." 

WAIT TO Stop 
DO CASE 

CASE Stop = '0' 

RETURN 
OTHERWISE 
ENDCASE 
DO CASE 

CASE choice = 'P PROC E 1 
CLEAR 

USE P_PROC_E 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@2,33 SAY TITLE 
@4,1 SAY "RECORD 

II 



@4,11 SAY count 
store count + 1 to count 
@6,1 SAY "ACCESS NAME:" 

@ 6,28 SAY P_NAME 

@7,1 SAY "IDENTIFICATION NAME:" 

@7,28 SAY E_NANE 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE 1 TO hold 

SKIP 

ENDDO 

RETURN 

CASE choice = 'S CONT P' 

USE S_CONT_P 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@2,33 SAY TITLE 
@4,1 SAY "RECORD 
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II 



@4,11 SAY count 
store count + 1 to count 
@6,1 SAY "ACCESS NAME:" 

@ 6,28 SAY S NAME 

@7,1 SAY "IDENTIFICATION NAME:" 

@7,28 SAY P_NAME 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE 1 TO hold 

SKIP 

ENDDO 

RETURN 

CASE choice = 'P CONT M' 

USE P CONT M 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@2,33 SAY TITLE 
@4,1 SAY "RECORD 

II 

@4,11 SAY count 
store count + 1 to count 
@6,1 SAY "ACCESS NAME:" 

@6,28 SAY P_NAME 

@7,1 SAY "IDENTIFICATION NAME:" 

@7,28 SAY M_NAME 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE ' TO hold 

SKIP 

ENDDO 

RETURN 

CASE choice = ' F CONT R' 

USE F_CONT_R 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@2,33 SAY TITLE 
@4,1 SAY "RECORD 

II 

@4,11 SAY count 
store count + 1 to count 
@6,1 SAY "ACCESS NAME:" 

@6,28 SAY F_NAME 

@7,1 SAY "IDENTIFICATION NAME:" 

@7,28 SAY R_NAME 
@8,1 SAY "COMMENTS:" 

DISPLAY OFF COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE ' TO hold 

SKIP 

ENDDO 

RETURN 

ENDCASE 
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* 122130. PRG 

* MODULE NAME: 1.2. 2. 1.3.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.2. 2. 1.0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 2 . 2 . 1 . 0 . 0 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* count: KEEPS TRACK OF ACCOUNT NUMBERS. 

* option: 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE WILL DISPLAY ON THE FIRST THREE RELATIONSHIP 

* RELATIONS 

* 

SET EXACT ON 

set color to 0/3,3 

set talk off 

set menu on 

SET EXACT ON 

RESTORE FROM mem var 

CLEAR 

@01 SAY "1 . 2 . 2 . 1 . 3 . 0" 

@ i’22 say "Information resource dictionary system 11 

@3,28 SAY "RELATIONSHIP SCREEN OUTPUT" 

@5,22 SAY "THIS MODULE WILL DISPLAY" 

@7,23 SAY TITLE 

@9,22 SAY "IF YOU DO NOT WISH TO DISPLAY" 

@ 10,22 SAY "THIS RELATIONSHIP, TYPE 'O' TO" 

@ 11,22 SAY "RETURN TO THE PREVIOUS MENU." 

WAIT TO Stop 
DO CASE 

CASE stop = 'O' 

RETURN 
OTHERWISE 
ENDCASE 
DO CASE 

CASE choice = 'R CONT E' 

CLEAR 

USE RJZONT_E 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@2,33 SAY TITLE 
@4,1 SAY "RECORD 

II 

@4,11 SAY count 
store count + 1 to count 
@6,1 SAY "ACCESS NAME:" 

@6,28 SAY R NAME 

@7,1 SAY "IDENTIFICATION NAME:" 

@7,28 SAY E NAME 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE ' TO hold 

SKIP 

ENDDO 

RETURN 

CASE choice = 'U_RESP_S' 

USE U_RESP_S 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@2,33 SAY TITLE 
@4,1 SAY "RECORD 
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@ 4,11 SAY count 
store count + 1 to count 
@6,1 SAY "ACCESS NAME:" 

@6,28 SAY U NAME 

@7,1 SAY "IDENTIFICATION NAME:" 

@7,28 SAY S NAME 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE ' TO hold 

SKIP 

ENDDO 

RETURN 

CASE choice = 'U_RESP_F' 

USE U_RESP_F 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@2,33 SAY TITLE 
@ 4,1 SAY "RECORD 

II 

@4,11 SAY count 
store count + 1 to count 
@6,1 SAY "ACCESS NAME:" 

@6,28 SAY U_NAME 

@7,1 SAY "IDENTIFICATION NAME:" 

@7,28 SAY F_NAME 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE ' TO hold 

SKIP 

ENDDO 

RETURN 

CASE choice = 'P_PROD_D' 

USE P PROD D 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@2,33 SAY TITLE 
@4,1 SAY "RECORD 

II 

@4,11 SAY count 
store count + 1 to count 
@6,1 SAY "ACCESS NAME:" 

@6,28 SAY P_NAME 

@7,1 SAY "IDENTIFICATION NAME:" 

@7,28 SAY D_NAME 
@8,1 SAY "COMMENTS:" 

DISPLAY OFF COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE ' TO hold 

SKIP 

ENDDO 

RETURN 

ENDCASE 
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* 122140. PRG 

* MODULE NAME: 1.2. 1.1. 4.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.2. 1.1. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 2 . 1 . 1 . 0 . 0 

* LOCAL VARIABLES USED: 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 

* CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 

* MODIFIED, DELETED FROM OR OUTPUT. 

* count : USED TO KEEP TRACK OF THE RECORD NUMBER BEING DISPLAYED. 

* Stop, hold : USED TO STOP ACTION FOR USER DECISION. 

* option : CONTAINS THE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 

* OR THE PRINTER. 

* t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

* LOOP . 

* INPUT FILES: MEM_VAR . 

* OUTPUT FILES: MEM VAR. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE WILL OUTPUT THE USER, SYSTEM, PROGRAM AND MODULE 

* RELATION FILES TO THE PRINTER. 

• k 

RESTORE FROM mem_var 
STORE 0 TO rec num, stop 
CLEAR 

@01 SAY "1 . 2 . 1 . 1 .4 .0" 

@1^22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,27 SAY "RELATIONSHIP PRINTER OUTPUT" 

@6,23 SAY "THIS MODULE WILL PRINT" 

@8,24 SAY TITLE 

@ 10,23 SAY "PLEASE INSURE THAT YOUR PRINTER" 

@ 11,23 SAY "IS TURNED ON AND IN THE ONLINE" 

@ 12,23 SAY "MODE" 

@ 14,23 SAY "IF YOU DO NOT WISH TO PRINT" 

@ 15,23 SAY "THIS RELATIONSHIP, TYPE 'O' TO" 

@ 16,23 SAY "RETURN TO THE PREVIOUS MENU" 

WAIT TO stop 
DO CASE 

CASE Stop = 'O' 

RETURN 

OTHERWISE 

ENDCASE 

SET DEVICE TO PRINT 
SET CONSOLE OFF 
DO CASE 

CASE choice = 'U_PROC_ S' 

USE U_PROC_S 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY U NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY S NAME 

SKIP 

ENDDO 

CASE choice = 'S_PROC_P' 

USE S_PROC_P 
STORE 1 TO count 
SET HEADING OFF 
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DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

@2,11 SAY count 

store count + 1 to count 

@4,1 SAY "ACCESS NAME:" 

@4,28 SAY S NAME 

@5,1 SAY "IDENTIFICATION NAME 

@5,28 SAY P_NAME 

SKIP 

ENDDO 

CASE choice = 'P_PR0C_F' 

USE P_PROC_F 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

PT FAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

it 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY P_NAME 

@5,1 SAY "IDENTIFICATION NAME 

@5,28 SAY F_NAME 

SKIP 

ENDDO 

CASE choice = 'P PROC R' 

USE P_PROC_R 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY PJMAME 

@5,1 SAY "IDENTIFICATION NAME 

@5,28 SAY RENAME 

SKIP 

ENDDO 

ENDCASE 

SET DEVICE TO SCREEN 
SET CONSOLE ON 
RETURN 



* 122000. PRG 
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* 122150. PRG 

* MODULE NAME: 1.2. 1.1. 5.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.2. 1.1. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 2 . 1 . 1 . 0 . 0 

* LOCAL VARIABLES USED: 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 

* CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 

* MODIFIED, DELETED FROM OR OUTPUT. 

* count : USED TO KEEP TRACK OF THE RECORD NUMBER BEING DISPLAYED. 

* hold : USED TO STOP ACTION FOR USER DECISION. 

* option : CONTAINS THE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 

OR THE PRINTER. 

* t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

* LOOP. 

* INPUT FILE: P_PROC_E . S_CONT_P, P_CONT_M, F_CONT_R . 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE WILL OUTPUT THE NEXT FOUR RELATIONSHIP 

* RELATION FILES TO THE PRINTER. 

* 



RESTORE FROM mem_var 
STORE 0 TO rec_num, stop 
CLEAR 

@01 SAY " 1 . 2 . 1 . 1 . 5 . 0" 

@ l',22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,27 SAY "RELATIONSHIP PRINTER OUTPUT" 

@6,23 SAY "THIS MODULE WILL PRINT" 

@8,24 SAY TITLE 

@ 10,23 SAY "PLEASE INSURE THAT YOUR PRINTER" 

@ 11,23 SAY "IS TURNED ON AND IN THE ONLINE" 

@ 12,23 SAY "MODE" 

@ 14,23 SAY "IF YOU DO NOT WISH TO PRINT" 

@ 15,23 SAY "THIS RELATIONSHIP, TYPE 'O’ TO" 

@ 16,23 SAY "RETURN TO THE PREVIOUS MENU" 

WAIT TO Stop 
DO CASE 

CASE stop = 'O' 

RETURN 

OTHERWISE 

ENDCASE 

SET DEVICE TO PRINT 
SET CONSOLE OFF 
DO CASE 

CASE choice = 'P_PROC E' 

USE P PROC E 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 



@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY P_NAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY E NAME 

SKIP 

ENDDO 

CASE choice = 'S CONT P' 

USE S_CONT_P 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 
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CLEAR 

@0,33 SAY CHOICE 
@ 2,1 SAY "RECORD 

ii 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY S_NAME 

@5,1 SAY "IDENTIFICATION NAME 

@5,28 SAY P_NAME 

SKIP 

ENDDO 

CASE choice = 'P CONT M' 

USE P_CONT_M 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY P NAME 

@5,1 SAY "IDENTIFICATION NAME 

@5,28 SAY M_NAME 

SKIP 

ENDDO 

CASE choice = 1 F CONT R' 

USE F_CONT_R 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@2,11 SAY count 

store count + 1 to count 

@ 4,1 SAY "ACCESS NAME:" 

@4,28 SAY F NAME 

@ 5,1 SAY "IDENTIFICATION NAME 

@5,28 SAY R_NAME 

SKIP 

ENDDO 

ENDCASE 

SET DEVICE TO SCREEN 
SET CONSOLE ON 
RETURN 



* 122160. PRG 

* MODULE NAME: 1.2. 1.1. 6.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.2. 1.1. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 2 . 1 . 1 . 0 . 0 



* LOCAL VARIABLES USED: 



* 

* 

* 

* 

* 

* 



choice 



count 

hold 

option 



* t 

* 



CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO , 
MODIFIED, DELETED FROM OR OUTPUT. 

USED TO KEEP TRACK OF THE RECORD NUMBER BEING DISPLAYED. 

USED TO STOP ACTION FOR USER DECISION. 

CONTAINS THE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 
OR THE PRINTER. 

REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 
LOOP. 



* INPUT FILES: R_CONT_E , U_RESP_S , U_RESP_F, P_PRED_D. 



* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE WILL OUTPUT THE LAST FOUR RELATIONSHIP FILES TO THE PRINTER. 

* 

RESTORE FROM mem_var 
STORE 0 TO rec_num, stop 
CLEAR 

@01 SAY " 1 . 2 . 1 . 1 . 6 . 0" 

@ 1 ' 22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,27 SAY "RELATIONSHIP PRINTER OUTPUT" 

@6,23 SAY "THIS MODULE WILL PRINT 4 ' 

@8,24 SAY TITLE 

@ 10,23 SAY "PLEASE INSURE THAT YOUR PRINTER" 

@ 11,23 SAY "IS TURNED ON AND IN THE ONLINE" 

@ 12,23 SAY "MODE" 

@ 14,23 SAY "IF YOU DO NOT WISH TO PRINT" 

@ 15,23 SAY "THIS RELATIONSHIP, TYPE 'O' TO" 

@ 16,23 SAY "RETURN TO THE PREVIOUS MENU" 

WAIT TO stop 
DO CASE 

CASE stop = 'O' 

RETURN 

OTHERWISE 

ENDCASE 

SET DEVICE TO PRINT 
SET CONSOLE OFF 
DO CASE 

CASE choice = ' R_CONT_E ' 

USE R_CONT_E 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

ii 

@2,11 SAY count 

store count + 1 to count 

@4,1 SAY "ACCESS NAME:" 

@4,28 SAY RNAME 

@5,1 SAY "IDENTIFICATION NAME:" 

@5,28 SAY E NAME 

SKIP 

ENDDO 

CASE choice = 'U RESP S' 

USE U_RESP_S 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 



CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

ii 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@4,28 SAY U NAME 

@5,1 SAY "IDENTIFICATION NAME 

@5,28 SAY S_NAME 

SKIP 

ENDDO 

CASE choice = 'U_RESP_F' 

USE U_RESP_F 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@2,11 SAY count 
store count + 1 to count 
@4,1 SAY "ACCESS NAME:" 

@ 4,28 SAY U_NAME 

@5,1 SAY "IDENTIFICATION NAME 

@5,28 SAY F_NAME 

SKIP 

ENDDO 

CASE choice = 'P_PROD_D' 

USE P_PROD_D 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

PT FAR 

@0,33 SAY CHOICE 
@2,1 SAY "RECORD 

II 

@2,11 SAY count 

store count + 1 to count 

@ 4,1 SAY "ACCESS NAME:" 

@4,28 SAY P NAME 

@5,1 SAY "IDENTIFICATION NAME 

@ 5,28 SAY D_NAME 

SKIP 

ENDDO 

ENDCASE 

SET DEVICE TO SCREEN 
SET CONSOLE ON 
RETURN 



* 130000. PRG 

* MODULE NAME: 1.3. 0.0. 0.0 

* ROUTINES THAT CALL THE MODLUE : 1.1. 0.0. 0.0 

* ROUTINES THAT THE MODULE CALLS: 1.3. 1.0. 0.0, 1.3. 2. 0.0.0, 1.3. 3. 0.0.0 

* 1.3. 4. 0.0.0, 1.3. 5. 0.0.0, 1.3. 6. 0.0.0, MAIN 

* LOCAL VARIABLES USED: 

* choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* name: CONTAINS THE ENTITY RELATION NAME. 

* entityl: CONTAINS THE ACCESS-NAME FOR THE ENTITY RELATION BEING ? 

* QUERIED. 

* OUTPUT FILE: MEM_VAR . 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RALATION 

* AND ACCESS NAME VALUE THAT WILL BE USED IN THE QUERY 



set color to 0/3,3 
set talk off 
SET EXACT ON 
ERASE mem_var.mem 
CLEAR 

STORE .t. TO true 
do while true 



CLEAR 

@01 SAY 11 1 . 3 . 0 . 0 . 0 . 0" 

' SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

SAY "QUERY MENU" 

““ "ENTITY-1 



SAY 

SAY 

SAY 

SAY 



@ 1,22 
@ 3,35 
@ 5,11 
@ 5,66 
@ 8,10 
@ 9,10 
@ 10,10 SAY 
@ 11,10 SAY 
@ 12,10 SAY 
@ 13,10 SAY 
@ 14,10 SAY 
@ 15,10 SAY 
@ 16,10 SAY 



" 1 ) 

" 2 ) 



@ 17,9 SAY "10] 



@18,4 SAY 
ACCEPT' 

STORE .f. TO 
DO CASE 
CASE choice 



RELATIONSHIP 



USER" 

SYSTEM" 

PROGRAM" 

MODULE" 

DOCUMENT" 

FILE" 

RECORD" 

ELEMENT" 

RETURN TO PREVIOUS MENU" 
RETURN TO MAIN MENU" 



ENTER YOUR CHOICE (1-10) FROM ABOVE: 
true 

= <•!<■ 



STORE 'USER' TO name 
CASE choice = "2" 

STORE 'SYSTEM' TO name 
CASE choice = "3" 



STORE 'PROGRAM' TO name 
CASE choice = "4" 

STORE 'MODULE' TO name 

r ASF rhnirp = "S" 

STORE 'DOCUMENT' TO name 
CASE choice = "6" 



STORE 'FILE' TO name 
CASE choice = "7" 

STORE 'RECORD' TO name 
CASE choice = "8" 



STORE 'ELEMENT' TO name 
CASE choice = "9" 

RETURN 

CASE choice = "10" 
RETURN TO MASTER 
OTHERWISE 
CLEAR 



ENTITY" 



'TO choice 
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@2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 10 ONLY" 
@3,14 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
STORE .t. TO true 
ENDCASE 
ENDDO 

STORE 1 N ' TO correct 
DO WHILE correct = ' N ' 

CLEAR 

STORE 1 1 TO entityl 

@11 SAY "1 . 3 . 0 . 0 . 0 .0" 

@2*22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@4,35 SAY "QUERY MENU" 

@ 6,12 SAY name 

@6,31 SAY "RELATIONSHIP ENTITY-2" 

@ 8,4 SAY "ENTER THE ACCESS -NAME FOR" 

@8,31 SAY name 

@9,4 SAY "YOU WISH TO QUERY ON" 

@9,26 GET entityl 

@10,4 SAY "AND PRESS RETURN" 

READ 

STORE * Y* TO correct 

@ 13,3 SAY "IS THIS THE ENTITY YOU WISH TO QUERY ON" 

@ 13,44 SAY ENTITY1 
@ 13,56 SAY "Y OR N" 

@ 13,64 GET correct 

READ 

ENDDO 

DO CASE 

CASE choice = "1" 

STORE 'USER' TO choice 
STORE 100 TO selection 
SAVE TO mem var 
do 131000 “ 

CASE choice = "2" 

STORE 'SYSTEM' TO choice 
STORE 200 TO selection 
SAVE TO mem var 
do 132000 “ 

CASE choice = "3" 

STORE 'PROGRAM' TO choice 
STORE 300 TO selection 
SAVE TO mem var 
do 133000 “ 

CASE choice = "4" 

STORE 'MODULE' TO choice 
STORE 400 TO selection 
SAVE TO mem var 
do 134000 
CASE choice = "5" 

STORE 'DOCUMENT' TO choice 
STORE 500 TO selection 
SAVE TO mem var 
do 135000 “ 

CASE choice = "6" 

STORE 'FILE' TO choice 
STORE 600 TO selection 
SAVE TO mem var 
do 136000 
CASE choice = "7" 

STORE 'RECORD' TO choice 
STORE 700 TO selection 
SAVE TO mem var 
do 137000 
CASE choice = "8" 

STORE 'ELEMENT' TO choice 
STORE 800 TO selection 
SAVE TO mem var 
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do 138000 
ENDCASE 



* 131000. PRG 

* MODULE NAME: 1.3. 1.0. 0.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.3. 0.0. 0.0 

* ROUTINES THAT THE MODULE CALLS: 1.3. 1.1. 0.0, 1.3. 1.2. 0.0 

* LOCAL VARIABLES USED: 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. 

* hold : USED TO STOP ACTION FOR USER DECISION. 

* entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 

* IN A QUERY STRING. 

* rel_ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 

* VALUE IN A QUERY STRING. 

* true : USED AS A BOOLEAN VALUE IN LOOPS. 

* correct : USED AS TO HOLD USER'S CHOICE FOR LOOP TERMINATION. 

* SELECTION : USED TO HOLD THE VALUE IDENTIFYING WHICH QUERY TO EXECUTE. 

* INPUT FILES: MEM_VAR 

* OUTPUT FILES: MEM_VAR 

* mem_var .mem : USED TO TEMPORARILY STORE THE MEMORY VARIABLE VALUES. 

* temp.dbf : USED TO STORE THE RESULT OF QUERY EXECUTION. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP 

* VALUE WILL BE USED IN THE QUERY 



RESTORE FROM mem_var 
ERASE mem var.mem 
CLEAR 

STORE 'N 1 TO correct 
DO WHILE correct = 1 N' 
STORE .t. TO true 
do while true 



CLEAR 

@01 SAY " 1 . 3 . 1 . 0 . 0 . 0" 

@ l'22 SAY "iNFORMATioN RESOURCE DICTIONARY SYSTEM" 
~ ~ SAY "QUERY MENU" 

SAY entityl 

SAY "RELATIONSHIP ENTITY-2" 



@ 3,35 
@ 5,11 
@5,33 
@ 8,32 



SAY 



1 

@9,32 SAY "2) 

@ 10,32 SAY "3) 
@11,4 SAY " " 
ACCEPT' 

STORE . f. TO true 
DO CASE 



CONTAINS" 

IS RESPONSIBLE FOR" 

RETURN TO PREVIOUS MENU" 

ENTER YOUR CHOICE (1-3) FROM ABOVE: 



CASE choice = "1" 



STORE 'CONTAINS' TO rel_ship 
CASE choice = "2" 

STORE 'IS RESPONSIBLE FOR' TO rel_ship 
CASE choice = "3" 



RETURN 

OTHERWISE 

CLEAR 

@2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 
@3,14 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

STORE .t. TO true 

ENDCASE 

ENDDO 

CLEAR 

@0,1 SAY "1.3. 1.0. 0.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,35 SAY "QUERY MENU" 

@5,12 SAY entityl 
@5,32 SAY relsnip 
@5,54 SAY "ENTITY-2" 

STORE ' Y ' TO correct 



TO choice 
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@10,3 SAY "IS THIS THE RELATIONSHIP THAT" 
@11,3 SAY "YOU WISH TO QUERY ON" 

@ 11,25 SAY rel_ship 
@12,3 SAY "Y OR N" 

@ 12,11 GET correct 

READ 

ENDDO 

DO CASE 

CASE choice = "1" 

STORE 'PROCESSES' TO choice 
STORE selection + 10 TO selection 
SAVE TO mem var 
do 131100 “ 

pt\ cr rhn l rp — non 

STORE 'IS RESPONSIBLE FOR' TO choice 
STORE selection + 20 TO selection 
SAVE TO mem var 
do 131200 ~ 

ENDCASE 
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131100. PRG 

MODULE NAME: 1.3. 1.1. 0.0 

ROUTINES THAT CALL THE MODLUE : 1.3. 1.0. 0.0 
ROUTINES THAT THE MODULE CALLS: 1.3. 1.0. 0.0 
LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
IN A QUERY STRING. 

entityl2: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE SECOND VALUE 
IN A QUERY STRING. 

hold : USED TO STOP ACTION FOR USER DECISION. 

rel_ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING. 

t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

LOOP. 

true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM_VAR . 

OUTPUT FILES: MEM VAR . * DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RALATION 
AND ACCESS NAME VALUE THAT WILL BE USED IN THE QUERY 



set color to 0/3,3 
set talk off 
SET EXACT ON 
ERASE mem_var.mem 
CLEAR 

STORE ■ N ■ TO correct 
DO WHILE correct = 'N' 

STORE .t. TO true 
do while true 
CLEAR 

@ 0,1 SAY "1.3. 1.1. 0.0" 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,35 SAY "QUERY MENU" 

@5,12 SAY entityl 
@ 5,34 SAY rel snip 
@5,60 SAY "ENTITY-2" 

@8,54 SAY "1) SYSTEM" 

@9,54 SAY "2) RETURN TO PREVIOUS" 

@ 10,59 SAY "MENU" 

@11,4 SAY " " 

ACCEPT 1 ENTER YOUR CHOICE (1-2) FROM ABOVE: 'TO choice 

STORE .f. TO true 
DO CASE 

CASE choice = "1" 

STORE 'SYSTEM' TO entity2 
CASE choice = "2" 

RETURN 

OTHERWISE 

CLEAR 

@2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 2 ONLY" 

@3,14 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

STORE . t. TO true 

ENDCASE 

ENDDO 

CLEAR 

@ 0,1 SAY "1.3. 1.1 .0.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,35 SAY "QUERY MENU" 

@5,12 SAY entityl 
@5,32 SAY rel ship 
@ 5,59 SAY entity2 
STORE ' Y ' TO correct 

@8,3 SAY "IS THIS THE ENTITY YOU WISH TO QUERY ON" 
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@8,44 SAY entity2 
@8,56 SAY "Y OR N" 

@8,64 GET correct 

READ 

ENDDO 

DO CASE 

CASE choice = "1" 

SAVE TO mem_var 
SELECT 2 
USE SYSTEM 
SELECT 1 
USE U_PROC_S 

JOIN WITH SYSTEM TO TEMP FOR U_NAME = entityl .AND. 
SYSTEM- >ACC_NAME FIELDS ID_NAME , DESCRIPT 
SELECT 2 
USE 

SELECT 1 
USE 

do 139000 
ENDCASE 



S_NAME = ; 



201 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 



131200. PRG 

MODULE NAME: 1.3. 1.2. 0.0 

ROUTINES THAT CALL THE MODLUE : 1.3. 1.0. 0.0 

ROUTINES THAT THE MODULE CALLS: 1.3. 1.0. 0.0 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO , 
MODIFIED , DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 
CORRECT OR NOT. 

entity 1 : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
IN A QUERY STRING. 

entity2 : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE SECOND VALUE 
IN A QUERY STRING. 

hold : USED TO STOP ACTION FOR USER DECISION. 

rel_ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING. 

true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM_VAR. 

OUTPUT FILES: MEM VAR. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RALATIONSHIP 

THAT WILL BE USED IN THE QUERY 



ERASE mem var.mem 
CLEAR 

STORE 'N' TO correct 
DO WHILE correct = 'N' 

STORE .t. TO true 
do while true 
CLEAR 

@01 SAY " 1 . 3 . 1 . 1 . 0 . 0" 

@1^22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,35 SAY "QUERY MENU" 

@5,11 SAY "ENTITY-1 RELATIONSHIP ENTITY" 

@ 5,66 SAY "-2" 

@8,54 SAY "1) SYSTEM" 

@9,54 SAY "2) FILE" 

@ 10,54 SAY "3) RETURN TO PREVIOUS" 

@ 11,59 SAY "MENU" 

@12,4 SAY " " 

ACCEPT 1 ENTER YOUR CHOICE (1-10) FROM ABOVE: 'TO choice 

STORE .f. TO true 
DO CASE 

CASE choice = "1" 

STORE 'SYSTEM' TO name 
CASE choice = "2" 

STORE 'FILE' TO name 
CASE choice = "3" 

RETURN 

OTHERWISE 

CLEAR 

@2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 

@3,14 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

STORE .t. TO true 

ENDCASE 

ENDDO 

CLEAR 

@01 SAY " 1 . 3 . 1 . 2 . 0 . 0" 

@ i,'22 say " Information resource dictionary system" 

@3,35 SAY "QUERY MENU" 

@5,12 SAY entityl 
@5,32 SAY relship 
@ 5,59 SAY name 
STORE 'Y 1 TO correct 
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@8,3 SAY "IS THIS THE ENTITY YOU WISH TO QUERY ON" 

@8,44 SAY name 
@8,56 SAY "Y OR N" 

@ 8,64 GET correct 

READ 

ENDDO 

DO CASE 

CASE choice = "1" 

SELECT 2 
USE SYSTEM 
SELECT 1 
USE U RESP S 

JOIN WITH SYSTEM TO TEMP FOR U_NAME = ENTITY1 .AND. S_NAME = SYSTEM-> ACC_NAME ; 
FIELDS ID__NAME , DESCRIPT 
SELECT 2 
USE 

SELECT 1 
USE 

DO 139000 

CASE choice = "2" 

SELECT 2 
USE FILE 
SELECT 1 
USE U_RESP_F 

JOIN WITH SYSTEM TO TEMP FOR U_NAME = ENTITY1 .AND. S_NAME = SYSTEM-> ACC_NAME ; 
FIELDS ID_NAME, DESCRIPT 
SELECT 2 
USE 

SELECT 1 
USE 

DO 139000 
ENDCASE 
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132000. PRG 

MODULE NAME: 1.3. 2. 0.0.0 

ROUTINES THAT CALL THE MODLUE : 1.3. 0.0. 0.0 
ROUTINES THAT THE MODULE CALLS: MAIN 
LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO , 
MODIFIED, DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 
CORRECT OR NOT. 

entity 1 : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
IN A QUERY STRING. 

rel_ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING, 
true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEMJVAR. 

OUTPUT FILES: MEMJVAR. 

DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE 
THAT WILL BE USED IN THE QUERY 



WHICH TYPE OF RALATIONSHIP 



set color to 0/3,3 
set talk off 
SET EXACT ON 
RESTORE FROM mem_var 
ERASE mem var.mem 
CLEAR 

STORE 'N 1 TO correct 
DO WHILE correct = 'N 1 



STORE .t. TO true 
do while true 



CLEAR 

@ 0,1 SAY "1.3. 2. 0.0.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,35 SAY "QUERY MENU" 

SAY entityl 

SAY "RELATIONSHIP ENTITY-2" 



@ 5,11 
@5,33 
@7,29 SAY 
@9,29 SAY 
@ 11,29 SAY 
@ 13,29 SAY 
@14,4 SAY 
ACCEPT' 

STORE .f. TO 
DO CASE 



" 1 ) 
"2) 

" 3 ) 

"4) 



PROCESSES" 

IS PROCESSED BY" 

CONTAINS" 

RETURN TO PREVIOUS MENU" 



ENTER YOUR CHOICE 
true 



(1-4) FROM ABOVE: 



CASE choice = "1" 

STORE 'PROCESSES' TO rel ship 
CASE choice = "2" 



STORE 'IS PROCESSED BY' TO rel ship 
CASE choice = "3" 

STORE 'CONTAINS' TO rel ship 
CASE choice = "4" 



RETURN 

OTHERWISE 

CLEAR 

@2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 4 ONLY" 
@3,14 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

STORE .t. TO true 

ENDCASE 

ENDDO 

CLEAR 

@01 SAY "1 .3 . 2 . 0 . 0 .0" 

@ l'22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,35 SAY "QUERY MENU" 

@5,12 SAY entityl 



TO choice 
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@5,32 SAY rel ship 
@5,58 SAY "ENTITY-2" 

@7,4 SAY "IS THIS THE RELATIONSHIP" 

@ 8,4 SAY "THAT YOU WISH TO QUERY ON" 
@8,31 SAY rel ship 
@9,4 SAY "Y OR N" 

@ 9,12 GET correct 

READ 

ENDDO 

DO CASE 

CASE choice = "1" 

STORE selection + 10 TO selection 
SAVE TO mem var 
do 132100 “ 

CASE choice = "2" 

STORE selection + 20 TO selection 
SAVE TO mem var 
do 132200 “ 

CASE choice = "3" 

STORE selection + 30 TO selection 
SAVE TO mem var 
do 132300 “ 

ENDCASE 
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133000. PRG 

MODULE NAME: 1.3. 3. 0.0.0 

ROUTINES THAT CALL THE MODLUE : 1.3. 0.0. 0.0 
ROUTINES THAT THE MODULE CALLS: MAIN 
LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO , 
MODIFIED, DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 
CORRECT OR NOT. 

entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
IN A QUERY STRING. 

rel_ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING, 
true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEMJ/AR. 

OUTPUT FILES: MEM_VAR . 

DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RALATION 
AND ACCESS NAME VALUE THAT WILL BE USED IN THE QUERY 



RESTORE FROM mem_var 
ERASE mem_var.mem 
CLEAR 

STORE ■ N ' TO correct 



DO WHILE correct = 1 N ' 
STORE .t. TO true 
do while true 



CLEAR 
@0,1 SAY 
@1,22 SAY 
@3,35 SAY 
@5,11 SAY 
@5,33 SAY 
@7,28 SAY 
@9,28 SAY 
@ 11,28 SAY 
@ 13,28 SAY 
@ 15,28 SAY 
@ 17,28 SAY 
@ 19,28 SAY 
@20,4 SAY " 
ACCEPT' 

STORE .f. TO 
DO CASE 

CASE choice = "1" 



"1.3. 3. 0.0.0" 

"INFORMATION RESOURCE DICTIONARY SYSTEM" 

"QUERY MENU" 

entityl 

"RELATIONSHIP ENTITY-2" 

PROCESSES" 

IS PROCESSED BY" 

CONTAINS" 

PRODUCES" 

IS THE RESPONISBILITY OF" 

IS CONTAINED IN" 

RETURN TO PREVIOUS MENU" 



" 1 ) 

" 2 ) 

' "3] 
"4 
"5 
"6 
"7 



ENTER YOUR CHOICE 
true 



(1-7) FROM ABOVE: 



STORE 'PROCESSES' TO rel_ship 
CASE choice = "2" 

STORE 'IS PROCESSED BY' TO rel ship • 
CASE choice = "3" 

STORE 'CONTAINS' TO rel ship 
CASE choice = "4" 

STORE 'PRODUCES' TO rel_ship 
CASE choice = "5" 



STORE 'IS THE RESPONSIBILITY OF' TO rel ship 
CASE choice = "6" 

STORE 'IS CONTAINED IN' TO rel ship 
CASE choice = "7" 



'TO choice 



RETURN 

OTHERWISE 

CLEAR 

@2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 7 ONLY" 
@3,14 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
STORE . t. TO true 
ENDCASE 
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ENDDO 

CLEAR 

@01 SAY 11 1 . 3 . 3 . 0 . 0 . 0" 

@ 1 \ 22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,35 SAY "QUERY MENU" 

@5,12 SAY entityl 
@5,32 SAY rel_ snip 
@5,58 SAY "ENTITY-2" 

@7,4 SAY "IS THIS THE RELATIONSHIP" 

@8,4 SAY "THAT YOU WISH TO QUERY ON" 

@8,31 SAY rel_ship 
@ 9,4 SAY "Y OR N" 

@9,12 GET correct 

READ 

ENDDO 

DO CASE 

CASE choice = "1" 

STORE selection + 10 TO selection 
SAVE TO mem var 
do 133100 
CASE choice = "2" 

STORE selection + 20 TO selection 
SAVE TO mem var 
do 133200 “ 

CASE choice = "3" 

STORE selection + 30 TO selection 
SAVE TO mem var 
do 133300 “ 

CASE choice = "4" 

STORE selection + 40 TO selection 
SAVE TO mem var 
do 133400 “ 

PA^F rhnirf* = "S" 

STORE selection + 50 TO selection 
SAVE TO mem var 
do 133500 ” 

CASE choice = "6" 

STORE selection + 60 TO selection 
SAVE TO mem var 
do 133600 “ 

ENDCASE 



207 



* 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 



134000. PRG 

MODULE NAME: 1.3. 4. 0.0.0 

ROUTINES THAT CALL THE MODLUE : 1.3. 0.0. 0.0 
ROUTINES THAT THE MODULE CALLS: MAIN 
LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO , 
MODIFIED, DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 
CORRECT OR NOT. 

entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
IN A QUERY STRING. 

rel_ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING, 
true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM_VAR. 

OUTPUT FILES: MEM VAR. 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 
USED IN THE QUERY. 



RESTORE FROM mem_var 
ERASE mem_var.mem 
CLEAR 

STORE 1 N 1 TO correct 
DO WHILE correct = 1 N ' 
STORE .t. TO true 
do while true 



CT FAR 

@0,1 SAY "1.3. 4. 0.0.0" 

"INFORMATION RESOURCE DICTIONARY SYSTEM" 
"QUERY MENU" 
entityl 

"RELATIONSHIP ENTITY-2" 

IS CONTAINED IN" 

IS PROCESSED BY" 

IS THE RESPONSIBILITY OF" 

RETURN TO PREVIOUS MENU" 



@ 1,22 
@ 3,35 
@ 5,11 
@ 5,33 
@ 7,29 
@ 9,29 



SAY 

SAY 

SAY 

SAY 

SAY 

SAY 



" 1 > 

" 2 ) 



@ 11,29 SAY "31 
@ 13,29 SAY "4] 
@14,4 SAY " " 
ACCEPT 1 



ENTER YOUR CHOICE (1-4) FROM ABOVE: 



STORE .f. TO true 
DO CASE 

CASE choice = "1" 

STORE 'IS CONTAINED IN' TO rel_ship 
CASE choice = "2" 

STORE 'IS PRODESSED BY' TO rel ship 
CASE choice = "3" 

STORE 'IS THE RESPONSIBILITY OF' TO rel_ship 
CASE choice = "4" 



RETURN 
OTHERWISE 
CLEAR 

@2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 4 ONLY 1 
@3,14 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

STORE .t. TO true 

ENDCASE 

ENDDO 

CLEAR 

@01 SAY "1 . 3 .4 . 0 . 0 . 0" 

@ 1 ' 22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,35 SAY "QUERY MENU" 

@5,12 SAY entityl 
@ 5,32 SAY rel snip 
@5,58 SAY "ENTITY-2" 

@7,4 SAY "IS THIS THE RELATIONSHIP" 

@8,4 SAY "THAT YOU WISH TO QUERY ON" 

@8,31 SAY rel ship 
@9,4 SAY "Y OR N" 



TO choice 
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@9,12 GET correct 

READ 

ENDDO 

DO CASE 

CASE choice = "1" 

STORE selection + 10 TO selection 
SAVE TO mem var 
do 134100 “ 

CASE choice = "2" 

STORE selection + 20 TO selection 
SAVE TO mem var 
do 134200 “ 

CASE choice = "3" 

STORE selection + 30 TO selection 
SAVE TO mem var 
do 134300 “ 

ENDCASE 
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135000. PRG 

MODULE NAME: 1.3. 5. 0.0.0 
ROUTINES THAT CALL THE MODLUE : 1.3. 0.0.0. 
ROUTINES THAT THE MODULE CALLS: MAIN 
LOCAL VARIABLES USED: 
choice 



CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 
CORRECT OR NOT. 

entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
IN A QUERY STRING. 

rel_ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING, 
true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM VAR. 

OUTPUT FILES: MEM_VAR. 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 
USED IN THE QUERY, 
set color to 0/3,3 
set talk off 
SET EXACT ON 



RESTORE FROM mem_var 
ERASE mem var.mem 
CLEAR 

STORE ■ N ■ TO correct 
DO WHILE correct = ■ N ' 



STORE .t. TO true 
do while true 
CLEAR 

@01 SAY "1 . 3 . 5 . 0 . 0 . 0" 

@ 1*22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,35 SAY "QUERY MENU" 

@5,11 SAY entityl 

@5,33 SAY "RELATIONSHIP ENTITY-2" 

@8,28 SAY "1) IS PRODUCED BY". 

@ 10,28 SAY "2) RETURN TO PREVIOUS MENU" 

@11,4 SAY " " 

ACCEPT' ENTER YOUR CHOICE (1-2) FROM ABOVE: 'TO choice 

STORE .f. TO true 
DO CASE 

CASE choice = "1" 

STORE 'IS PRODUCED BY' TO rel ship 
CASE choice = "2" 



RETURN 

OTHERWISE 

CLEAR 

@2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 2 ONLY" 
@3,14 SAY "PRESS RETURN TO TRY AGAIN!" 

Accept TO hold 

STORE .t. TO true 

ENDCASE 

ENDDO 

CLEAR 

@ 0,1 SAY "1.3. 5. 0.0.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,35 SAY "QUERY MENU" 

@5,12 SAY entityl 
@5,32 SAY rel_snip 
@5,58 SAY "ENTITY-2" 

@7,4 SAY "IS THIS THE RELATIONSHIP" 

@8,4 SAY "THAT YOU WISH TO QUERY ON" 

@ 8,31 SAY rel_ship 
@9,4 SAY "Y OR N" 

@9,12 GET correct 

READ 

ENDDO 

DO CASE 
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CASE choice = "1" 

STORE selection + 10 TO selection 
SAVE TO mem var 
do 135100 “ 

ENDCASE 
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136000. PRG 

MODULE NAME: 1.3. 6. 0.0.0 

ROUTINES THAT CALL THE MODLUE : 1.3. 0.0. 0.0 
ROUTINES THAT THE MODULE CALLS: MAIN 
LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 
CORRECT OR NOT. 

entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
IN A QUERY STRING. 

rel ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING, 
true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM VAR. 

OUTPUT FILES: MEH VAR. 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 
USED IN THE QUERY. 



RESTORE FROM mem_var 
ERASE mem_var.mem 
CLEAR 

STORE ' N ' TO correct 
DO WHILE correct = ■ N ' 
STORE . t. TO true 
do while true 



CLEAR 

@01 SAY "1 . 3 . 6 . 0 . 0 . 0" 

@1^22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
SAY "QUERY MENU" 

SAY entityl 

SAY "RELATIONSHIP ENTITY-2" 



@3,35 
@ 5,11 
@ 5,33 
@7,28 



SAY 



" 1 ) 

@9,28 SAY "2) 

@ 11 , 28 SAY "3) 
@ 13,28 SAY "4) 
@14,4 SAY " " 
ACCEPT 1 



STORE . f. 
DO CASE 



TO true 



CONTAINS" 

IS PROCESSED BY" 

IS THE RESPONSIBILITY OF" 

RETURN TO PREVIOUS MENU" 

ENTER YOUR CHOICE (1-4) FROM ABOVE: 



CASE choice = "1" 

STORE 'CONTAINS 1 TO rel ship 
CASE choice = "2" 



STORE 'IS PROCESSED BY' TO rel ship 
CASE choice = "3" 

STORE 'IS THE RESPONSIBILITY OF' TO rel ship 
CASE choice = "4" 



'TO choice 



RETURN 

OTHERWISE 

CLEAR 

@2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 4 ONLY" 
@3,14 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

STORE . t. TO true 

ENDCASE 

ENDDO 

CLEAR 

@ 0,1 SAY "1.3. 6. 0.0.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,35 SAY "QUERY MENU" 

@5,12 SAY entityl 
@5,32 SAY rel ship 
@5,58 SAY "ENTlTY-2" 

@7,4 SAY "IS THIS THE RELATIONSHIP" 

@8,4 SAY "THAT YOU WISH TO QUERY ON" 

@ 8,31 SAY rel_ship 
@9,4 SAY "Y OR N" 
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@9,12 GET correct 

READ 

ENDDO 

DO CASE 

CASE choice = "1" 

STORE selection + 10 TO selection 
SAVE TO mem var 
do 136100 
CASE choice = "2" 

STORE selection + 20 TO selection 
SAVE TO mem var 
do 136200 “ 

CASE choice = "3" 

STORE selection + 30 TO selection 
SAVE TO mem var 
do 136300 “ 

ENDCASE 
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137000. PRG 

MODULE NAME: 1.3. 7. 0.0.0 

ROUTINES THAT CALL THE MODLUE : 1.3. 0.0. 0.0 
ROUTINES THAT THE MODULE CALLS: MAIN 
LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 
CORRECT OR NOT. 

entity 1 : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
IN A QUERY STRING. 

rel_ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING, 
true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM_VAR. 

OUTPUT FILES: MEM_VAR . 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 
USED IN THE QUERY. 



RESTORE FROM mem_var 
ERASE mem var.mem 
CLEAR 

STORE 1 N ' TO correct 
DO WHILE correct = ' N ' 
STORE .t. TO true 
do while true 



CLEAR 

@01 SAY "1 . 3 .7 . 0 . 0 . 0" 

@1^22 SAY " INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,35 SAY "QUERY MENU" 

@5,11 SAY entityl 



@5,33 SAY "RELATIONSHIP 



@ 7,27 
@ 9,27 



SAY 

SAY 



" 1 ) 

"2) 



ENTITY-2" 



@ 11,27 SAY "3) 
@ 13,27 SAY "4 
@ 15,27 SAY "5 
@16,1 SAY " " 
ACCEPT' 



STORE .f. TO true 
DO CASE 

CASE choice = "1" 

STORE 'CONTAINS' TO 
CASE choice = "2" 

STORE 'IS CONTAINED 
CASE choice = "3" 

STORE 'IS PROCESSED BY' 

CASE choice = "4" 

STORE 'IS THE RESPONSIBILITY OF 
CASE choice = "5" 



CONTAINS" 

IS CONTAINED IN" 

IS PROCESSED BY" 

IS THE RESPONSIBILITY OF" 

RETURN TO PREVIOUS MENU" 

ENTER YOUR CHOICE (1-5) FROM ABOVE-. 'TO choice 



rel_ship 

TO rel_ship 
TO rel_ship 



IN 



TO rel_ship 



RETURN 

OTHERWISE 

CLEAR 

@2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 5 ONLY" 
@3,14 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

STORE .t. TO true 

ENDCASE 

ENDDO 

CLEAR 

@ 0,1 SAY "1.3. 7. 0.0.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,35 SAY "QUERY MENU" 

@5,12 SAY entityl 
@ 5,32 SAY relsnip 
@5,58 SAY "ENTITY-2" 

@7,4 SAY "IS THIS THE RELATIONSHIP" 
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@8,4 SAY "THAT YOU WISH TO QUERY ON" 
@8,31 SAY rel ship 
@9,4 SAY "Y OR N" 

@9,12 GET correct 

READ 

ENDDO 

DO CASE 

CASE choice = "1" 

STORE selection + 10 TO selection 
SAVE TO mem var 
do 137100 
CASE choice = "2" 

STORE selection + 20 TO selection 
SAVE TO mem var 
do 137200 “ 

CASE choice = "3" 

STORE selection + 30 TO selection 
SAVE TO mem var 
do 137300 “ 

CASE choice = "4" 

STORE selection + 40 TO selection 
SAVE TO mem var 
do 137400 “ 

ENDCASE 
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* 138000. PRG 

* MODULE NAME : 1.3. 8. 0.0.0 

* ROUTINES THAT CALL THE MODLUE : 1.3. 0.0. 0.0 

* ROUTINES THAT THE MODULE CALLS: MAIN 

* LOCAL VARIABLES USED: 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 

* CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 

* MODIFIED, DELETED FROM OR OUTPUT. 

* correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 

* CORRECT OR NOT. 

? entity? ? CONTAIN? TH? CHARACTE? STRIN? THA? REPRESENT? TH? FIRS? VALUE 

* IN A QUERY STRING. 

? entity2 ? CONTAIN? TH? CHARACTE? STRIN? THA? REPRESENT? TH? SECOND VALUE 

* IN A QUERY STRING. 

* rel_ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 

* VALUE IN A QUERY STRING. 

* true : USED AS A BOOLEAN VALUE IN LOOPS. 

* INPUT FILES: MEM VAR. 

* OUTPUT FILES: MEM_VAR . 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 

* USED IN THE QUERY. 



RESTORE FROM mem_var 
ERASE mem_var.mem 
CLEAR 

STORE 'N' TO correct 
DO WHILE correct = ' N ' 



STORE .t. TO true 
do while true 



CLEAR 

@0,1 SAY "1 . 3 . 8 . 0 . 0 .0" 

@ 1 ' 22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
3,35 SAY "QUERY MENU" 
entityl 

'' RELATIONSHIP ENTITY-2" 

IS CONTAINED IN" 

IS PROCESSED BY" 

IS THE RESPONSIBILITY OF" 

RETURN TO THE PREVIOUS MENU" 



@ 

@ 

@ 



"IS 



ENTER YOUR CHOICE 
true 



(1-4) FROM ABOVE: 



5,11 SAY 
5,33 SAY 
@7,27 SAY 
@9,27 SAY 
@ 11,27 SAY 
@ 13,27 SAY 
@14,4 SAY " 

ACCEPT 1 
STORE .f. TO 
DO CASE 

p ASF rhoi rp = •M •• 

STORE 'IS CONTAINED IN' TO 
CASE choice = "2" 

STORE 'IS PROCESSED BY' 

CASE choice = 1 1 3 1 * 

STORE 'IS THE RESPONSIBILITY OF' TO rel_ship 
CASE choice = "4" 



TO 



rel_ship 

rel_ship 



'TO choice 



RETURN 

OTHERWISE 

CLEAR 

@2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 4 ONLY" 
@3,14 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

STORE .t. TO true 

ENDCASE 

ENDDO 

CLEAR 

@01 SAY " 1 . 3 . 8 . 0 . 0 . 0" 

@1^22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,35 SAY "QUERY MENU" 

@5,12 SAY entityl 
@ 5,32 SAY rel_ship 
@5,58 SAY "ENTITY-2" 

@ 7,4 SAY "IS THIS THE RELATIONSHIP" 

@8,4 SAY "THAT YOU WISH TO QUERY ON" 
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@8,31 SAY rel ship 
@9,4 SAY "Y OR N" 

@9,12 GET correct 

READ 

ENDDO 

DO CASE 

CASE choice = "1" 

STORE selection + 10 TO selection 
SAVE TO mem var 
do 138100 “ 

CASE choice = "2" 

STORE selection + 20 TO selection 
SAVE TO mem var 
do 138200 ~ 

CASE choice = "3" 

STORE selection + 30 TO selection 
SAVE TO mem var 
do 138300 ~ 

ENDCASE 
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* 139000. PRG 

* MODULE NAME: 1.3. 9. 0.0.0 

* ROUTINES THAT CALL THE MODLUE : 1.3. 1.1. 0.0 THRU 1.3. 8. 3. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 3 . 1 . 1 . 0 .0 THRU 1.3. 8. 3. 0.0 

* LOCAL VARIABLES USED: 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 

* CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 

* MODIFIED, DELETED FROM OR OUTPUT. 

* true : USED AS A BOOLEAN VALUE IN LOOPS. 

* option : USED TO HOLD THE VALUE REPRESENTING THE CHOICE OF PRINTER OR 

* SCREEN OUTPUT. 

* INPUT FILES: MEM VAR. 

* OUTPUT FILES: MEM VAR. 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 

* USED IN THE QUERY. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHETHER THE OUTPUT WILL BE 

* DISPLAYED ON THE SCREEN OR PRINTED. 

■k 

RESTORE FROM mem_var 
STORE 0 TO rec_num, stop 
CLEAR 

STORE .t. TO TRUE 
do while TRUE 
CLEAR 

@ 0,1 SAY "1.3. 9. 0.0.0" 

RESTORE FROM mem var 

@2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@4,34 SAY "QUERY OUTPUT" 

@8,23 SAY "LISTED BELOW ARE THE CHOICES FOR HOW" 

@9,23 SAY "YOU CAN HAVE THE QUERY" 

@ 11,24 SAY entityl 
@ 11,38 SAY rel snip 
@ 11,57 SAY entity2 
@ 13,23 SAY "DISPLAYED." 

@ 15,28 SAY "1) SCREEN OUTPUT" 

@ 17,28 SAY "2) PRINTER OUPUT" 

@ 19,28 SAY "3) RETURN TO PREVIOUS MENU" 

@20,1 SAY " " 

ACCEPT 1 ENTER YOUR CHOICE (1-3) FROM ABOVE 'TO option 

ERASE mem_var.mem 
SAVE TO mem var 
DO CASE 

CASE option = 1 1 1 

DO 139100 

CASE option = '2' 

DO 139200 

CASE option = '3' 

RETURN 

OTHERWISE 

CLEAR 

@0,27 SAY option 

@ 0,34 SAY "IS NOT A VALID CHOICE" 

@1,26 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 

@2,26 SAY "PRESS RETURN AND TRY AGAIN!" 

ACCEPT TO hold 

ENDCASE 

ENDDO 
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* 139100. PRG 

* MODULE NAME: 1.3. 9. 1.0.0 

* ROUTINES THAT CALL THE MODLUE : 1.3. 9. 0.0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 3 . 9 . 0 . 0 . 0 

* LOCAL VARIABLES USED: 

CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

USED TO STOP ACTION FOR USER DECISION. 

CONTAINS THE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 
OR THE PRINTER. 

USED TO STOP ACTION FOR USER DECISION. 

REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 
LOOP. 

CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
IN A QUERY STRING. 

CONTAINS THE CHARACTER STRING THAT REPRESENTS THE SECOND VALUE 
IN A QUERY STRING. 

CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING. 

* INPUT FILES: MEM_VAR . 

* OUTPUT FILES: MEM_VAR . 

* THIS MODULE WILL DISPLAY THE RESULTS OF THE QUERY ON THE SCREEN. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE WILL DISPLAY THE RESULTS OF THE QUERY 

* ON THE SCREEN. 

* PROGRAM AND MODULE RELATIONS 

A 



* choice : 

* 

* 

* hold : 

* option : 

* 

* stop : 

* t 

* 

* entityl : 

* entity2 : 

* rel ship: 

* ~ 



RESTORE FROM mem_var 
CLEAR 

@01 SAY " 1 . 3 . 9 . 1 . 0 . 0" 

@ l)22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,30 SAY "QUERY SCREEN OUTPUT" 

@5,22 SAY "THIS MODULE WILL DISPLAY THE RESULTS OF" 
@7,21 SAY entityl 
@7,38 SAY rel ship 
@7,59 SAY entlty2 

@ 9,22 SAY "IF YOU DO NOT WISH TO DISPLAY THIS RELATION," 
@ 10,22 SAY "TYPE 'O' TO RETURN TO THE PREVIOUS MENU." 
WAIT TO stop 
DO CASE 

CASE stop = 'O' 

RETURN 
OTHERWISE 
ENDCASE 
CLEAR 
USE TEMP 

STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

CLEAR 

@01 SAY "1.3. 9. 1.0.0" 

@ 1*22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,32 SAY "QUERY RESULTS FOR" 

@5,21 SAY entityl 
@5,38 SAY rel snip 
@5,59 SAY entTty2 
USE TEMP 

STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 

@7,1 SAY "RECORD #" 

@7,9 SAY count 

@9,1 SAY " " 

store count + 1 to count 

@10,4 SAY "IDENTIFICATION NAME:" 
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@ 10,31 SAY ID_NAME 
@12,4 SAY "DESCRIPTION 
@ 12,21 SAY descript 
@17,4 SAY " " 

WAIT TO hold 
SKIP 
ENDDO 
RETURN 



139200. PRG 

MODULE NAME: 1.3. 9. 2. 0.0 
INPUT FILES: NONE 
OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE : 1.3. 9. 0.0.0 
ROUTINES THAT THE MODULE CALLS : 1 . 3 . 9 . 0 . 0 . 0 
LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO ; 
MODIFIED , DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 
CORRECT OR NOT. 

entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
IN A QUERY STRING. 

entity2 : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE SECOND VALUE 
IN A QUERY STRING. 

rel ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING, 
true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEMJVAR. 

OUTPUT FILES: MEM_VAR . 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 
USED IN THE QUERY. 

DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 

THIS MODULE WILL OUTPUT THE QUERY TO THE PRINTER. 



SET EXACT ON 

set color to 0/3,3 

set talk off 

set menu on 

SET EXACT ON 

RESTORE FROM mem_var 

STORE 0 TO rec num, stop 

CLEAR 

@01 SAY "1 . 3 . 9 . 2 . 0 . 0" 

@ l'22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,29 SAY "QUERY PRINTER OUTPUT" 

@6,23 SAY "THIS MODULE WILL PRINT QUERY" 

@ 8,20 SAY entityl 
@ 8,37 SAY rel_snip 
@8,56 SAY name 

@ 10,23 SAY "PLEASE INSURE THAT YOUR PRINTER" 

@ 11,23 SAY "IS TURNED ON AND IN THE ONLINE" 

@ 12,23 SAY "MODE" 

@ 14,23 SAY "IF YOU DO NOT WISH TO PRINT" 

@ 15,23 SAY "THIS RELATION, TYPE ’O' TO" 

@ 16,23 SAY "RETURN TO THE PREVIOUS MENU" 

WAIT TO Stop 
DO CASE 

CASE stop = '0' 

RETURN 

OTHERWISE 

ENDCASE 

SET DEVICE TO PRINT 
SET CONSOLE OFF 
USE TEMP 

STORE 1 TO count 
DO WHILE .NOT. EOF() 

@ 29 1 SAY "1 .3 . 9 . 2 . 0 .0" 

@ 30 22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@ 32,32 SAY "RESULTS FOR QUERY" 

@ 34,20 SAY entityl 
@ 34,37 SAY rel_ship 
@ 34,56 SAY name 
@40,1 SAY "RECORD #" 

@ 40,11 SAY count 
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store count + 1 to count 
@42,3 SAY "IDENTIFICATION NAME 
@ 42,30 SAY ID NAME 
@44,3 SAY "DESCRIPTION:" 

@ 44,19 SAY descript 

SKIP 

ENDDO 

SET DEVICE TO SCREEN 
SET CONSOLE ON 
RETURN 



* 140000. PRG 

* MODULE NAME: 1.4. 0,0. 0.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : MAIN 
ROUTINES THAT THE MODULE CALLS :1. 1.1. 0.0.0, 1.1. 2. 0.0.0, 1.1. 3. 0.0.0 
1.1. 4. 0.0.0, 1.1. 5. 0.0.0, MAIN. 

LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED 

t: REPRESTENTS NO VALUE AT ALL. 
hold: USED TO STOP ACTION FOR USER DECISION. 
DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 

THIS PROGRAM ALLOWS FOR THE MAINTENANCE OF ENTITY SCHEMA, 

AND RELATIONSHIP SCHEMA. 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

•k 

do while .t. 

CLEAR 

0 0,1 SAY "1.4. 0.0. 0.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,31 SAY "MAINTENANCE MENU" 

@6,22 SAY "1) MODIFY ENTITY SCHEMA" 

MODIFY RELATIONSHIP SCHEMA" 

RETURN TO MAIN MENU" 



ENTER YOUR CHOICE (1-3) FROM ABOVE: 1 TO choice 



@ 8,22 SAY "2) 

@ 10,22 SAY "3) 

@11,1 SAY " " 

ACCEPT 1 
DO CASE 

CASE choice = "1" 

do 141000 

CASE choice = "2" 

DO 142000 

CASE choice = "3" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY' 
@3,20 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
ENDCASE 
ENDDO 
RETURN 
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* 141000. PRG 

* MODULE NAME: 1.4. 1.0. 0.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.4. 0.0. 0.0 

* ROUTINES THAT THE MODULE CALLS: MAIN 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* INPUT FILES: MEM_VAR , USER, SYSTEM, PROGRAM , MODULE , DOCUMENT, FILE, RECORD, 

* ELEMENT . 

* OUTPUT FILES: MEM_VAR, USER, SYSTEM, PROGRAM, MODULE, DOCUMENT, FILE, RECORD, 

* ELEMENT 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RELATION 

* TO MODIFY. 

* 

do while .t. 

CLEAR 

@ 0,1 SAY "1. 4. 1.0. 0.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,31 SAY "MODIFY ENTITY SCHEMA" 



@ 


6,15 SAY " 


1) 


USER 


6) 


FILE" 




@ 


8,15 SAY " 


2) 


SYSTEM 


7) 


RECORD" 




@ 


10,15 SAY 


"3) 


PROGRAM 


8) 


ELEMENT" 




@ 


12,15 SAY 


"4) 


MODULE 


9) 


RETURN TO 


PREVIOUS MENU 


0 


14,15 SAY 


"5) 


DOCUMENT 


10) 


RETURN TO 


MAIN MENU" 


@16,1 SAY " 
ACCEPT 1 


II 


ENTER YOUR CHOICE 


(1-10) 


FROM ABOVE 


: 'TO choice 



DO CASE 

CASE choice = "1" 
USE USER 

MODIFY STRUCTURE 
CASE choice = "2" 
USE SYSTEM 
MODIFY STRUCTURE 
CASE choice = "3" 
USE PROGRAM 
MODIFY STRUCTURE 
CASE choice = "4" 
USE MODULE 
MODIFY STRUCTURE 
CASE choice = "5" 
USE DOCUMENT 
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MODIFY STRUCTURE 
CASE choice = "6" 

USE FILE 

MODIFY STRUCTURE 
CASE choice = N 7 U 
USE RECORD 
MODIFY STRUCTURE 
CASE choice = M 8 M 
USE ELEMENT 
MODIFY STRUCTURE 
CASE choice = "9 n 
RETURN 

CASE choice = "10" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 10 ONLY" 
@3,20 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
END CASE 
ENDDO 
RETURN 
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* 142000. PRG 

* MODULE NAME: 1.4. 2. 0.0.0 

* ROUTINES THAT CALL THE MODLUE : 1.4. 0.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 4 . 0 . 0 . 0 . 0 , MAIN 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* INPUT FILES: MEM_VAR , U_CONTS , U_CONT_S , 

* U_CONT_P, P_PROC_F , P_PROC_R, 

* P_PROC_R . P_PROC_E . S_CONT_P , P_CONT_M, F_CONT_R, R_CONT_E , 

* U_RESP_S ( U_RESP_F , P_PRED_D. 

* OUTPUT FILES: MEM_VAR , ELEMENT, U_CONTS , U_CONT_S , 

* U_CONT_P , P_PROC_F , P_PR0C_R, 

* P_PROC_R . P_PROC_E . S_CONT_P , P_CONT_M, F_CONT_R, R_C0NT_E , 

* U_RESP_S, U_RESP_F, P_PRED_D. 



* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH RELATIONSHIP 

* SCHEMA HE WOULD LIKE TO MODISY. 

* 



do while .t. 
CLEAR 

SET MENU ON 
@1,1 SAY "1 
@2,22 SAY " 
@4,25 SAY " 
@6,9 SAY "1 
@6,64 SAY " 
@8,9 SAY "2 
@8,64 SAY " 
@10,9 SAY " 
@ 10,64 SAY 
@12,9 SAY " 
@ 12,64 SAY 
@14,9 SAY " 
@ 14,64 SAY 
@16,9 SAY " 
@ 16,64 SAY 
@18,9 SAY " 
@ 18,64 SAY 
@19,1 SAY " 
ACCEPT 1 
DO CASE 
CASE choice 



.4. 2. 0.0.0" 

INFORMATION RESOURCE DICTIONARY SYSTEM" 
RELATIONSHIP SCHEMA MAINTENANCE" 

) USER CONTAINS SYSTEM 8) 

ORDS" 

) SYSTEM CONTAINS PROGRAM 9) 

LEMENT" 

3) PROGRAM PROCESSES FILE 10) 

"FOR SYSTEM" 

4) PROGRAM PROCESSES RECORD 11) 

"FOR FILE" 

5) PROGRAM PROCESSES ELEMENT 12) 

"DOCUMENT" 

6) SYSTEM CONTAINS PROGRAM 13) 

"S MENU" 

7) PROGRAM CONTAINS MODULE 14) 

"NU" 



FILE CONTAINS REC" 
RECORD CONTAINS E" 
USER RESPONSIBLE" 
USER RESPONSIBLE" 
PROGRAM PRODUCES" 
RETURN TO PREVIOU" 
RETURN TO MAIN ME" 



ENTER YOUR CHOICE (1-10) FROM ABOVE: ' TO choice 
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USE U_PROC_S 
MODIFY STRUCTURE 
CASE choice = "2 M 
USE S_PROC_P 
MODIFY STRUCTURE 
CASE choice = "3" 

USE P_PROC_F 
MODIFY STRUCTURE 
CASE choice = ,, 4" 

USE P_PROCJR 
MODIFY STRUCTURE 
CASE choice = n 5 n 
USE P_PROC_E 
MODIFY STRUCTURE 
CASE choice = "6 11 
USE S_CONT_P 
MODIFY STRUCTURE 
CASE choice = "7 M 
USE P_CONT_M 
MODIFY STRUCTURE 
CASE choice = "8" 

USE F_CONT_R 
MODIFY STRUCTURE 
CASE choice = "9" 

USE R_CONT_E 
MODIFY STRUCTURE 
CASE choice = "10" 

USE U_RESP_S 
MODIFY STRUCTURE 
CASE choice = "11" 

USE U_RESP_F 
MODIFY STRUCTURE 
CASE choice = "12" 

USE P_PROD_D 
MODIFY STRUCTURE 
CASE choice = "13" 

RETURN 

CASE choice = "14" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@1,21 SAY choice 

@1,28 SAY "IS NOT A VALID CHOICE" 

@2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 14 ONLY" 
@3,20 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
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ENDCASE 

ENDDO 

RETURN 



150000 .prg 

MODULE NAME: 1.5. 0,0. 0.0 
INPUT FILES: NONE 
OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE : MAIN 
ROUTINES THAT THE MODULE -CALLS: MAIN. 

LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

t: REPRESTENTS NO VALUE AT ALL. 
hold: USED TO STOP ACTION FOR USER DECISION. 
DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 

THIS PROGRAM ALLOWS FOR THE THE SELECTION OF WHICH TYPE OF 
SCHEMA WILL BE OUTPUT. 



.t. 



do while 
CLEAR 

@ 0,1 SAY "1 .5. 0.0. 0.0" 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,34 SAY "SCHEMA OUTPUT" 

@6,22 SAY "1) ENTITY" 

RELATIONSHIP" 

RETURN TO MAIN MENU" 



ENTER YOUR CHOICE (1-3) FROM ABOVE: 'TO choice 



@8,22 SAY "2) 

@ 10,22 SAY "3) 

@ 11,22 SAY " " 

ACCEPT 1 
DO CASE 

CASE choice = "1" 

do 151000 

CASE choice = "2" 

DO 152000 

CASE choice = "3" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 
@3,20 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
ENDCASE 
ENDDO 
RETURN 
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* 121000. PRG 

* MODULE NAME: 1.5. 1.0. 0.0 

* ROUTINES THAT CALL THE MODLUE : 1.5. 0.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 5 . 0 . 0 . 0 . 0 , 1.5. 1.1. 0.0 MAIN 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* INPUT FILES: MEM_VAR . 

* OUTPUT FILES: MEM_VAR . 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 

* USED IN THE QUERY. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RELATION 

* TO OUTPUT. 

* 

SET EXACT ON 
set color to 0/3,3 
set talk off 
CLEAR 

do while .t. 

ERASE mem_var.mem 
CLEAR 

@ 0,1 SAY "1.5. 1.0. 0.0" 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,29 SAY " ENTITY SCHEMA OUTPUT" 



@ 


6,15 SAY " 


1) 


USER 


6) 


FILE" 


@ 


8,15 SAY " 


2) 


SYSTEM 


7) 


RECORD" 


@ 


10,15 SAY 


"3) 


PROGRAM 


8) 


ELEMENT" 


@ 


12,15 SAY 


"4) 


MODULE 


9) 


RETURN TO PREVIOUS MENU 


@ 


14,15 SAY 


"5) 


DOCUMENT 


10) 


RETURN TO MAIN MENU" 



@15,1 SAY " " 

ACCEPT' ENTER YOUR CHOICE (1-10) FROM ABOVE: 'TO choice 

DO CASE 

CASE choice = "1" 

store 'USER' to choice 

save to mem_var 

do 151100 

CASE choice = "2" 

store 'SYSTEM' to choice 

save to mem_var 

DO 151100 

CASE choice = "3" 

store 'PROGRAM' to choice 

save to mem var 
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DO 151100 

CASE choice = "4" 

store 'MODULE' to choice 

save to mem_var 

DO 151100 

CASE choice = "5" 

store 'DOCUMENT' to choice 

save to mem_var 

DO 151100 

CASE choice = "6" 

store 'FILE' to choice 

save to mem_var 

DO 151100 

CASE choice = "7" 

store 'RECORD' to choice 

save to mem_var 

DO 151100 

CASE choice = "8" 

store 'ELEMENT' to choice 

save to mem_var 

DO 151100 

CASE choice = "9" 

RETURN 

CASE choice = "10" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@1,23 SAY choice 

@1,31 SAY "IS NOT A VALID CHOICE" 

@2,18 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 10 ONLY" 
@3,18 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
ENDCASE 
ENDDO 
RETURN 
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* 151100. PRG 

* MODULE NAME: 1.5. 1.1. 0.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

* ROUTINES THAT CALL THE MODLUE : 1.5. 1.0. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 5 . 1 . 0 . 0 . 0 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* count: KEEPS TRACK OF ACCOUNT NUMBERS. 

* . option: USED TO SELECT PRINTER OR SCREEN. 

* INPUT FILES: MEM_VAR . 

* OUTPUT FILES: MEM_VAR . 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 

* USED IN THE QUERY. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHETHER THE OUTPUT WILL BE 

* DISPLAYED ON THE SCREEN OR PRINTED. 

* 

RESTORE FROM mem_var 
STORE 0 TO rec_num, stop 
CLEAR 

STORE .t. TO TRUE 
do while TRUE 
CLEAR 

@ 0,1 SAY "1.5. 1.1. 0.0" 

RESTORE FROM mem_var 

@2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@4,29 SAY "ENTITY SCHEMA OUTPUT" 

@8,23 SAY "LISTED BELOW ARE THE CHOICES FOR HOW" 

@9,23 SAY "YOU CAN HAVE THE RELATION" 

@9,50 SAY CHOICE 
@ 10,23 SAY "DISPLAYED." 

@ 12,28 SAY "1) SCREEN OUTPUT" 

@ 14,28 SAY "2) PRINTER OUPUT" 

@ 16,28 SAY "3) RETURN TO PREVIOUS MENU" 

@17,1 SAY " " 

ACCEPT' ENTER YOUR CHOICE (1-3) FROM ABOVE 'TO option 

ERASE mem_var.mem 
SAVE TO mem_var 
DO CASE 

CASE option = '1' 

DO CASE 

CASE CHOICE = 'USER' 
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DO 151110 
CASE choice 


= 


'SYSTEM' 


DO 151110 
CASE CHOICE 


= 


' PROGRAM ' 


DO 151110 
CASE choice 


- 


' MODULE 1 


DO 151110 
CASE CHOICE 


= 


' DOUCMENT 


DO 151110 
CASE choice 


= 


'FILE' 


DO 151110 
CASE CHOICE 


_ 


'RECORD' 


DO 151110 
CASE choice 


— 


' ELEMENT ' 


DO 151110 
ENDCASE 
CASE option 




'2' 


DO CASE 
CASE CHOICE 


- 


'USER' 


DO 151120 
CASE choice 


— 


' SYSTEM ' 


DO 151120 
CASE CHOICE 


— 


' PROGRAM ' 


DO 151120 






CASE choice 


= 


' MODULE ' 


DO 151120 
CASE CHOICE 


— 


' DOCUMENT 


DO 151120 
CASE choice 


— 


'FILE' 


DO 151120 
CASE CHOICE 


— 


'RECORD' 


DO 151120 
CASE choice 


— 


' ELEMENT ' 


DO 151120 
ENDCASE 
CASE option 




'3' 


RETURN 

OTHERWISE 







CLEAR 

@0,27 SAY option 

@0,34 SAY "IS NOT A VALID CHOICE" 

@1,26 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 

WAIT TO stop 

ENDCASE 

ENDDO 
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* 151110. PRG 

* MODULE NAME: 1.5. 1.1. 1.0 

* ROUTINES THAT CALL THE MODLUE : 1.5. 1.1. 0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 5 . 1 . 1 . 0 . 0 

* LOCAL VARIABLES USED: 

* choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 

* CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 

* MODIFIED, DELETED FROM OR OUTPUT. 

* count : USED TO KEEP TRACK OF THE RECORD NUMBER BEING DISPLAYED. 

* Stop : USED TO STOP ACTION FOR USER DECISION. 

* t : REPRESTENTS THE BOOLEAN FALUE TRUE IS USED TO CREATE A CONTINUES 

* LOOP . 

* INPUT FILES: MEM_VAR . 

* OUTPUT FILES: MEM_VAR . 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 

* USED IN THE QUERY. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE WILL DISPLAY ON THE SCREEN ENTITY RELATION SCHEMA. 

* 

SET EXACT ON 

set color to 0/3,3 

set talk off 

set menu on 

SET EXACT ON 

RESTORE FROM mem_var 

CLEAR 

@ 0,1 SAY "1.5. 1.1. 1.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,26 SAY " ENTITY SCHEMA SCREEN OUTPUT" 

@5,22 SAY "THIS MODULE WILL DISPLAY" 

@5,48 SAY choice 

@7,22 SAY "IF YOU DO NOT WISH TO DISPLAY" 

@8,22 SAY "THIS SCHEMA, TYPE 'O' TO" 

@9,22 SAY "RETURN TO THE PREVIOUS MENU." 

WAIT TO stop 
DO CASE 

CASE stop = 'O' 

RETURN 

OTHERWISE 

ENDCASE 

@ 1,1 SAY "1.5. 1.1. 1.0" 

@2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@4,30 SAY "RELATION SCHEMA FOR" 

@6,37 SAY choice 
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'USER 



2 9,1 " " 

DO CASE 
CASE choice = 

CLEAR 
USE USER 
DISPLAY STRUCTURE 
WAIT TO stop 
RETURN 

CASE choice = 'SYSTEM' 
CLEAR 

USE SYSTEM 
DISPLAY STRUCTURE 
WAIT TO stop 
RETURN 

CASE choice = 'PROGRAM' 
CLEAR 

USE PROGRAM 
DISPALY STRUCTURE 
WAIT TO stop 
RETURN 

CASE choice = 'MODULE' 
CLEAR 

USE MODULE 
DISPLAY STRUCTURE 
WAIT TO stop 
RETURN 

CASE choice = 'DOCUMENT' 
CLEAR 

USE DOCUMENT 
DISPLAY STRUCTURE 
WAIT TO stop 
RETURN 

CASE choice = L FILE ' 

CLEAR 

USE FILE 

DISPLAY STRUCTURE 
WAIT TO stop 
RETURN 

CASE choice = 'RECORD' 
CLEAR 

USE RECORD 
DISPALY STRUCTURE 
WAIT TO stop 
RETURN 

CASE choice = 'ELEMENT' 
CLEAR 
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USE ELEMENT 
DISPLAY STRUCTURE 
WAIT TO stop 
RETURN 
ENDCASE 



* 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 



151120. PR G 

MODULE NAME: 1.5. 1.1. 2.0 

ROUTINES THAT CALL THE MODLUE : 1.5. 1.1. 0.0 
ROUTINES THAT THE MODULE CALLS : 1 . 5 . 1 . 1 . 0 . 0 
LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO , 
MODIFIED , DELETED FROM OR OUTPUT. 

count : USED TO KEEP TRACK OF THE RECORD NUMBER BEING DISPLAYED, 

hold : USED TO STOP ACTION FOR USER DECISION. 

option : CONTAINS THE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 
OR THE PRINTER. 

t : REPRESTENTS THE BOOLEAN FALUE TRUE IS USED TO CREATE A CONTINUES 

LOOP. 

INPUT FILES: MEM_VAR , USER, SYSTEM, PROGRAM, MODULE, DOCUMENT, FILE, 
ELEMENT. 

OUTPUT FILES: MEM_VAR USER, SYSTEM, PROGRAM, MODULE, DOCUMENT, 

ELEMENT. 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 
USED IN THE QUERY. 

DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 

THIS MODULE WILL OUTPUT THE USER, 

RELATION FILES TO THE PRINTER. 



RECORD, 
FILE, RECORD, 



SYSTEM, PROGRAM AND MODULE 



SET EXACT ON 

set color to 0/3,3 

set talk off 

set menu on 

SET EXACT ON 

RESTORE FROM mem_var 

STORE 0 TO rec_num, stop 

CLEAR 

@ 0,1 SAY "1.5. 1.1. 2.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,27 SAY "ENTITY SCHEMA PRINTER OUTPUT" 

@5,23 SAY "THIS MODULE WILL PRINT" 

@5,47 SAY choice 

@7,23 SAY "PLEASE INSURE THAT YOUR PRINTER" 

@8,23 SAY "IS TURNED ON AND IN THE ONLINE" 

@9,23 SAY "MODE" 

@ 11,23 SAY "IF YOU DO NOT WISH TO PRINT" 

@ 12,23 SAY "THIS SCHEMA, TYPE 'O' TO" 

@ 13,23 SAY "RETURN TO THE PREVIOUS MENU" 

WAIT TO stop 
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DO CASE 

CASE stop = 'O' 

RETURN 

OTHERWISE 

ENDCASE 

SET DEVICE TO PRINT 
SET CONSOLE OFF 
@ 1,1 SAY "1.5. 1.1. 2.0" 

@2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@4,31 SAY "RELATION SCHEMA FOR" 

@6,35 SAY choice 
@8,1 SAY " " 

DO CASE 

CASE choice = 'USER' 

USE USER 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'SYSTEM' 

USE SYSTEM 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'PROGRAM' 

USE PROGRAM 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'MODULE' 

USE MODULE 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'DOCUMENT' 

USE DOCUMENT 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'FILE' 

USE FILE 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'RECORD' 

USE RECORD 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'ELEMENT' 

USE ELEMENT 

DISPLAY STRUCTURE TO PRINT 
ENDCASE 

SET DEVICE TO SCREEN 
SET CONSOLE ON 
RETURN 
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* 152000. PRG 

* MODULE NAME: 1.5. 2. 0.0.0 

* ROUTINES THAT CALL THE MODLUE : 1.1. 0.0. 0.0 

* ROUTINES THAT THE MODULE CALLS :.TBD, MAIN 

* LOCAL VARIABLES USED: 



choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT, 
hold : USED TO STOP ACTION FOR USER DECISION. 

t : REPRESTENTS THE BOOLEAN FALUE TRUE IS USED TO CREATE A CONTINUES 

LOOP. 

title : CONTAINS THE CHARACTER STRING THAT DESCRIBES THE RELATIONSHIP 
BEING ADDED TO, DELETED FROM OR OUTPUT. 

INPUT FILES: MEM_VAR . 

OUTPUT FILES: MEM_VAR . 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 
USED IN THE QUERY. 

DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH RELATIONSHIP HE WOULD 
LIKE TO DISPLAY THE SCHEMA OF. 



SET EXACT ON 
set color to 0/3,3 
set talk off 
CLEAR 

do while .t. 

ERASE mem_var.mem 
CLEAR 

@ 0,1 SAY "1.5. 2. 0.0.0" 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@3,27 SAY "RELATIONSHIP SCHEMA OUTPUT" 

@5,9 SAY "1) USER CONTAINS SYSTEM 8) 

@5,64 SAY "ORDS" 

@7,9 SAY "2) SYSTEM CONTAINS PROGRAM 9) 
@7,64 SAY "LEMENT" 

@9,9 SAY "3) PROGRAM PROCESSES FILE 10) 

@9,64 SAY "FOR SYSTEM" 

@ 11,9 SAY "4) PROGRAM PROCESSES RECORD 11) 

@ 11,64 SAY "FOR FILE" 

@13,9 SAY "5) PROGRAM PROCESSES ELEMENT 12) 

@ 13,64 SAY "DOCUMENT" 

@15,9 SAY "6) SYSTEM CONTAINS PROGRAM 13) 



FILE CONTAINS REC" 



RECORD CONTAINS E" 



USER RESPONSIBLE 1 



USER RESPONSIBLE" 



PROGRAM PRODUCES" 



RETURN TO PREVIOU" 
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@ 15,64 SAY "S MENU" 

@17,9 SAY "7) PROGRAM CONTAINS MODULE 14) RETURN TO MAIN ME" 
@ 17,64 SAY "NU" 

@ 18,22 SAY " " 

ACCEPT 1 ENTER YOUR CHOICE (1-14) FROM ABOVE : 1 TO choice 

DO CASE 

CASE choice = "1" 

store ' U_PROC_S ' to choice 

store 'USER CONTAINS SYSTEM 1 TO title 

save to mem_var 

do 152100 

CASE choice = "2" 

store ' S_PR0C_P 1 to choice 

store 'SYSTEM CONTAINS PROGRAM' TO title 

save to mem_var 

do 152100 

CASE choice = "3" 

store 'P_PR0C_F' to choice 

store 'PROGRAM PROCESSES FILE' TO title 

save to mem_var 

do 152100 

CASE choice = "4" 

store ' P_PR0C_R ' to choice 

store 'PROGRAM PROCESSES RECORD' TO title 

save to mem_var 

do 152100 

CASE choice = "5" 

store ' P_PR0C_E ' to choice 

store 'PROGRAM PROCESSES ELEMENT' TO title 

save to mem_var 

do 152100 

CASE choice = "6" 

store ' S_CONT_P ' to choice 

store 'SYSTEM CONTAINS PROGRAM' TO title 

save to mem_var 

do 152100 

CASE choice = "7" 

store 'P_C0NT_M' to choice 

store 'PROGRAM CONTAINS MODULE' TO title 

save to mem_var 

do 152100 

CASE choice = "8" 

store 'F_CONT_R' to choice 

store 'FILE CONTAINS RECORD' TO title 

save to mem_var 

do 152100 
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CASE choice = "9" 

store 1 R_CONT_E 1 to choice 

store 'RECORD CONTAINS ELEMENT 1 TO title 

save to mem_var 

do 152100 

CASE choice = "10" 

store l U_RESP_S l to choice 

store 'USER RESPONSIBLE FOR SYSTEM' TO title 
save to raem_var 
do 152100 

CASE choice = "11" 

store ' U_RESP_F ' to choice 

store 'USER RESPONSIBLE FOR FILE' TO title 

save to mem_var 

do 152100 

CASE choice = "12" 

store ' P_PR0D_D ' to choice 

store 'PROGRAM PRODUCES DOCUMENT' TO title 

save to mem_var 

do 152100 

CASE choice = "13" 

RETURN 

CASE choice = "14" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@ 1,21 SAY choice 

@1,28 SAY "IS NOT A VALID CHOICE" 

@2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 14 ONLY" 
@3,20 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 
ENDCASE 
ENDDO 
RETURN 



241 



* 152100. PRG 

* MODULE NAME: 1.5. 2. 1.0.0 

* ROUTINES THAT CALL THE MODLUE : 1.5. 2, 0.0.0 

* .ROUTINES THAT THE MODULE CALLS : 1 . 5 . 2 . 0 .0 .0 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* t: REPRESTENTS NO VALUE AT ALL. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* count: KEEPS TRACK OF ACCOUNT NUMBERS. 

* option: 

* INPUT FILES: MEM_VAR . 

* OUTPUT FILES: MEM_VAR . 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 

* USED IN THE QUERY. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHETHER THE OUTPUT WILL BE * 

* DISPLAYED ON THE SCREEN OR PRINTED. 

* 

RESTORE FROM mem_var 
STORE 0 TO rec_num, stop 
CLEAR 

STORE .t. TO TRUE 
do while TRUE 
CLEAR 

@ 0,1 SAY "1.5. 2. 1.0.0" 

RESTORE FROM mem_var 

@2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@4,22 SAY " RELATIONSHIP SCHEMA OUTPUT" 

@8,23 SAY "LISTED BELOW ARE THE CHOICES FOR" 

@9,23 SAY "HOW YOU CAN HAVE THE SCHEMA FOR" 

@ 10,24 SAY TITLE 
@ 11,23 SAY "DISPLAYED." 

@ 13,28 SAY "1) SCREEN OUTPUT" 

@ 15,28 SAY "2) PRINTER OUPUT" 

@ 17,28 SAY "3) RETURN TO PREVIOUS MENU" 

@18,1 SAY " " 

ACCEPT' ENTER YOUR CHOICE (1-3) FROM ABOVE 'TO option 

ERASE mem_var.mem 
SAVE TO mem var 



DO CASE 




CASE option = 


'1' 


DO CASE 




CASE CHOICE = 


1 U_PROC_S 


DO 152110 




CASE choice = 


1 S_PROC_P 
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DO 152110 






CASE CHOICE 
DO 152110 




1 P_PROC_F 


CASE choice 
DO 152110 


— 


1 P_PROC_R 


CASE CHOICE 
DO 152110 




1 P_PROC_E 


CASE choice 
DO 152110 




' S_CONT_P 


CASE CHOICE 
DO 152110 




1 P_CONT_M 


CASE choice 
DO 152110 


— 


1 F_CONT_R 


CASE CHOICE 
DO 152110 


= 


1 R_CONT_E 


CASE choice 
DO 152110 




1 U_RESP_S 


CASE CHOICE 
DO 152110 


— 


1 U_RESP_F 


CASE choice 
DO 152110 
ENDCASE 




1 P_PROD_D 


CASE option 
DO CASE 


— 


'2' 


CASE CHOICE 
DO 152120 


— 


1 U_PROC_S 


CASE choice 
DO 152120 


— 


1 S_PROC_P 


CASE CHOICE 
DO 152120 


— 


1 P_PROC_F 


CASE choice 
DO 152120 




' P_PROC_R 


CASE CHOICE 
DO 152120 


— 


1 P_PROC_E 


CASE choice 
DO 152120 


— 


' S_CONT_P 


CASE CHOICE 
DO 152120 


— 


1 P_CONT_M 


CASE choice 
DO 152120 


— 


1 F_CONT_R 


CASE CHOICE 
DO 152120 


= 


' R_CONT_E 


CASE choice 
DO 152120 


= 


' U_RESP_S 


CASE CHOICE 
DO 152120 


= 


1 U_RESP_F 



CASE choice = 'P_PROD_D' 

DO 152120 
ENDCASE 

CASE option = '3' 

RETURN 

OTHERWISE 

CLEAR 

@0,27 SAY option 

@0,34 SAY "IS NOT A VALID CHOICE" 

@1,26 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 
@2,26 SAY "PRESS RETURN AND TRY AGAIN!" 

ACCEPT TO hold 

ENDCASE 

ENDDO 
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* 152110. PRG 

* MODULE NAME: 1.5. 2. 1.1.0 

* ROUTINES THAT CALL THE MODLUE : 1.5. 2. 1.0.0 

* ROUTINES THAT .THE MODULE CALLS : 1 . 5 . 2 . 1 . 0 . 0 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* INPUT FILES: MEM_VAR U_CONTS, U_CONT_S , U_CONT_P, P_PROC_F, P_PROC_R, 

* P_PROC_R . P_PROC_E . S_CONT_P , P_CONT_M, F_CONT_R, R_CONT_E 

* U_RESP_S , U_RESP_F , P_PRED_D . 

* OUTPUT FILES: MEM_VAR 

* U_CONTS , U_CONT_S, U_CONT_P , P_PROC_F, P_PROC_R, 

* P_PROC_R. P_PROC_E. S_CONT_P , P_C0NT_M, F_CONT_R, R_CONT_E 

* U_RESP_S , U_RESP_F, P_PRED_D. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE WILL DISPLAY ON THE RELATIONSHIP SCHEMAS 

* 

RESTORE FROM mem_var 
CLEAR 

@ 0,1 SAY "1.5. 2. 1.1.0" 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,25 SAY "RELATIONSHIP SCHEMA SCREEN OUTPUT" 

@5,22 SAY "THIS MODULE WILL DISPLAY" 

@7,23 SAY TITLE 

@9,22 SAY "IF YOU DO NOT WISH TO DISPLAY" 

@ 10,22 SAY "THIS SCHEMA, TYPE 'O' TO" 

@ 11,22 SAY "RETURN TO THE PREVIOUS MENU." 

WAIT TO stop 
DO CASE 

CASE stop = 'O' 

RETURN 

OTHERWISE 

ENDCASE 

CLEAR 

@ 0,1 SAY "1.5. 2. 1.1.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,28 SAY "RELATIONSHIP SCHEMA FOR" 

@5,27 SAY title 
@ 7,1 SAY " " 

DO CASE 

CASE choice = ' U_PROC_S ' 

USE U_PROC_S 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 
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CASE choice = 1 S_PROC_P* 
USE S_PROC_P 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 

CASE choice = 'P_PROC_F' 
USE P_PROC_F 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 

CASE choice = 'P_PROC_R' 
USE P_PROC_R 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 

CASE choice = 'P_PROC_E' 
USE P_PROC_E 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 

CASE choice = 'S_CONT_P' 
USE S_CONT_P 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 

CASE choice = ' P_CONT_M' 
USE P_CONT_M 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 

CASE choice = 1 F_CONT_R' 
USE F_CONT_R 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 

CASE choice = ' R_CONT_E ' 
USE R_CONT_E 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 

CASE choice = , U_RESP_S I 
USE U_RESP_S 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 

CASE choice = 'U RESP F' 
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USE U_RESP_F 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 

CASE choice = *P_PROD_D' 
USE P_PROD_D 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 



* 152120. PRG 

* MODULE NAME: 1.5. 2. 1.2.0 

* ROUTINES THAT CALL THE MODLUE : 1.5. 2. 1.0.0 

* ROUTINES THAT THE MODULE CALLS : 1 . 5 . 2 . 1 . 0 . 0 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

* hold: USED TO STOP ACTION FOR USER DECISION. 

* INPUT FILES: MEM_VAR U_CONTS, U_CONT_S , U_CONT_P , P_PROC_F, P_PROC_R ( 

* P_PROC_R . P_PROC_E . S_CONT_P , P_CONT_M, F_CONT_R, R_CONT_E , 

* U_RESP_S , U_RESP_F , P_PROD_D . 

* OUTPUT FILES: MEM_VAR 

* U_CONTS , U_CONT_S , U_CONT_P , P_PROC_F, P_PROC_R, 

* P_PROC_R. P_PROC_E . S_CONT_P , P_CONT_M, F_CONT_R, R_CONT_E ( 

* U_RESP_S , U_RESP_F , P_PROD_D . 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE WILL OUTPUT THE USER, SYSTEM, PROGRAM AND MODULE 

* RELATION FILES TO THE PRINTER. 

•k 

RESTORE FROM mem_var 
STORE 0 TO rec_num, stop 
CLEAR 

@ 0,1 SAY "1.5. 1.1. 2.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,27 SAY "RELATIONSHIP PRINTER OUTPUT" 

@6,23 SAY "THIS MODULE WILL PRINT" 

@8,24 SAY TITLE 

@ 10,23 SAY "PLEASE INSURE THAT YOUR PRINTER" 

@ 11,23 SAY "IS TURNED ON AND IN THE ONLINE" 

@ 12,23 SAY "MODE" 

@ 14,23 SAY "IF YOU DO NOT WISH TO PRINT" 

@ 15,23 SAY "THIS RELATION, TYPE '0' TO" 

@ 16,23 SAY "RETURN TO THE PREVIOUS MENU" 

WAIT TO stop 
DO CASE 

CASE stop = 'O' 

RETURN 

OTHERWISE 

ENDCASE 

SET DEVICE TO PRINT 
SET CONSOLE OFF 
@ 1,1 SAY "1.5. 1.1. 2.0" 

@2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@4,36 SAY "SCHEMA FOR" 

@6,23 SAY title 
@9,1 SAY " " 
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DO CASE 

CASE choice = ' U_PROC_S ' 
USE U_PROC_S 

DISPLAY STRUCTURE TO PRINT 
CASE choice = ' S_PROC_P ' 
USE S_PROC_P 

DISPLAY STRUCTURE TO PRINT 
CASE choice = , P_PROC_F l 
USE P_PROC_F 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'P_PROC_R' 
USE P_PROC_R 

DISPLAY STRUCTURE TO PRINT 
CASE choice = ' P_PROC_E 1 
USE P_PROC_E 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 1 S_CONT_P ' 
USE S_CONT_P 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'P_CONT_H' 
USE P_CONT_M 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 1 F_CONT_R' 
USE F_CONT_R 

DISPLAY STRUCTURE TO PRINT 
CASE choice = ' R_CONT_E ' 
USE R_CONT_E 

DISPLAY STRUCTURE TO PRINT 
CASE choice = , U_RESP_S‘ 
USE U_RESP_S 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'U_RESP_F' 
USE U_RESP_F 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'P_PROD_D' 
USE P_PROD_D 

DISPLAY STRUCTURE TO PRINT 
ENDCASE 

SET DEVICE TO SCREEN 
SET CONSOLE ON 
RETURN 
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